19 lines
562 B
Scheme
19 lines
562 B
Scheme
(use-modules (knots)
|
|
(knots backtraces)
|
|
(fibers)
|
|
(system repl debug))
|
|
|
|
(start-stack
|
|
#t
|
|
(with-exception-handler
|
|
(lambda (exn)
|
|
(let* ((stack (make-stack #t))
|
|
(stack-classification
|
|
((@@ (knots backtraces)
|
|
classify-stack-situation)
|
|
(stack->vector stack))))
|
|
(print-backtrace-and-exception/knots exn)
|
|
(simple-format/knots #t "situation: ~A\n" stack-classification)
|
|
(primitive-exit 0)))
|
|
(lambda ()
|
|
(error "test"))))
|