Christopher Baines
f203a8933a
All checks were successful
/ test (push) Successful in 4s
As these differ between 3.0.10 and 3.0.11.
16 lines
441 B
Scheme
16 lines
441 B
Scheme
(use-modules (knots))
|
|
|
|
;; FIRST BACKTRACE ENTRY: (with-exception-handler
|
|
|
|
(with-exception-handler
|
|
(lambda _ #f)
|
|
(lambda ()
|
|
(with-exception-handler
|
|
(lambda _ #f)
|
|
(lambda ()
|
|
(with-exception-handler
|
|
(lambda (exn)
|
|
(print-backtrace-and-exception/knots exn)
|
|
(primitive-exit 1))
|
|
(lambda ()
|
|
(error "plain error message"))))))) ; LAST BACKTRACE ENTRY HERE
|