guile-knots/tests/backtraces/call-with-thread.scm

(use-modules (knots) (knots thread-pool))

(define thread-pool (make-fixed-size-thread-pool 1))

;; FIRST BACKTRACE ENTRY: (with-exception-handler
(with-exception-handler
    (lambda (exn)
      (print-backtrace-and-exception/knots exn)
      (primitive-exit 1))
  (lambda ()
    (call-with-thread
     thread-pool
     (lambda ()
       (error "error from call-with-thread")))))  ; LAST BACKTRACE ENTRY HERE