Try and improve the print-backtrace-and-exception/knots output, be selective about the stack frames which are shown to try and produce some useful output which reflects user code and hide the &knots-exceptions. This commit also introduces a bunch of tests scripts that produce output from print-backtrace-and-exception/knots, to help test this code in different situations.
This commit is contained in:
parent
92c2fe46e7
commit
b3fa4d069b
21 changed files with 957 additions and 118 deletions
15
tests/backtraces/stack-situation-script.scm
Normal file
15
tests/backtraces/stack-situation-script.scm
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
(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"
|
||||
(classify-stack-situation
|
||||
(stack->vector stack))))
|
||||
(primitive-exit 0))
|
||||
(lambda ()
|
||||
(error "test")))
|
||||
Loading…
Add table
Add a link
Reference in a new issue