(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"))))
