guile-knots/tests/backtraces/wrapped-exception.scm

(use-modules (knots))

;; FIRST BACKTRACE ENTRY: (with-exception-handler
(with-exception-handler
    (lambda (exn)
      (print-backtrace-and-exception/knots exn)
      (primitive-exit 1))
  (lambda ()
    (with-exception-handler
        (lambda (exn)
          (raise-exception
           (make-exception
            exn
            (make-knots-exception (make-stack #t)))))
      (lambda ()
        (error "wrapped error message"))))) ; LAST BACKTRACE ENTRY HERE