guile-knots/tests/backtraces/call-with-cached-connection.scm

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

(run-fibers
 (lambda ()
   (let ((cache (make-fixed-size-resource-pool
                 (list (open-input-string "fake")))))
     ;; FIRST BACKTRACE ENTRY: (with-exception-handler
     (with-exception-handler
         (lambda (e)
           (print-backtrace-and-exception/knots e)
           (primitive-exit 1))
       (lambda ()
         (call-with-cached-connection cache
                                      (lambda (port)
                                        (error "error from call-with-cached-connection"))  ; LAST BACKTRACE ENTRY HERE
                                      #:close-connection-on-exception? #f)))))
 #:hz 0 #:parallelism 1)