20 lines
440 B
Scheme
20 lines
440 B
Scheme
|
(use-modules (knots))
|
||
|
|
|
||
|
|
(define (do-sort)
|
||
|
|
(begin
|
||
|
|
(sort '(1 2 3)
|
||
|
|
(lambda _
|
||
|
|
(+ 1 'a))) ; LAST BACKTRACE ENTRY HERE
|
||
|
|
'unreachable))
|
||
|
|
|
||
|
|
;; FIRST BACKTRACE ENTRY: 1762:12 (with-exception-handler
|
||
|
|
(with-exception-handler
|
||
|
|
(lambda (exn)
|
||
|
|
(print-backtrace-and-exception/knots exn)
|
||
|
|
(primitive-exit 1))
|
||
|
|
(lambda ()
|
||
|
|
(call-with-temporary-thread
|
||
|
|
(lambda ()
|
||
|
|
(do-sort)
|
||
|
|
'done))))
|