guile-knots/tests/backtraces/call-with-resource-from-pool.scm

(use-modules (knots) (fibers) (knots resource-pool))

(run-fibers
 (lambda ()
   (let ((pool (make-resource-pool (const 'resource) 1)))
     ;; FIRST BACKTRACE ENTRY: (with-exception-handler
     (with-exception-handler
         (lambda (e)
           (print-backtrace-and-exception/knots e)
           (primitive-exit 1))
       (lambda ()
         (call-with-resource-from-pool pool
                                       (lambda (resource)
                                         (error "error from call-with-resource-from-pool")))))))  ; LAST BACKTRACE ENTRY HERE
 #:hz 0 #:parallelism 1)