guile-knots/tests/backtraces/fibers-map.scm

(use-modules (knots) (fibers) (knots parallelism))

(run-fibers
 (lambda ()
   (with-exception-handler
       (lambda _
         ;; To avoid the test hanging if there's an exception
         (primitive-exit 1))
     (lambda ()
       ;; FIRST BACKTRACE ENTRY: (with-exception-handler
       (with-exception-handler
           (lambda (e)
             (print-backtrace-and-exception/knots e)
             (primitive-exit 1))
         (lambda ()
           (fibers-map
            (lambda (x)
              (error "error from fibers-map"))  ; LAST BACKTRACE ENTRY HERE
            '(1)))))))
 #:hz 0 #:parallelism 1)