guile-knots/tests/backtraces/stack-situation-script.scm

(use-modules (knots)
             (knots backtraces)
             (system repl debug))

(with-exception-handler
    (lambda (exn)
      (let ((stack (make-stack #t)))
        (print-backtrace-and-exception/knots exn)
        (simple-format/knots #t
                             "situation: ~A\n"
                             ((@@ (knots backtraces)
                                  classify-stack-situation)
                              (stack->vector stack))))
      (primitive-exit 0))
  (lambda ()
    (error "test")))