cbaines/guile-knots
1
Fork 0
Code Issues 1 Pull requests Activity Actions

Don't export classify-stack-situation

Browse source 
As it's not intended for general use.
This commit is contained in:
Christopher Baines 2026-03-23 11:43:25 +00:00
parent f203a8933a
commit d282841a78
4 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
knots/backtraces.scm
View file

@ -32,9 +32,7 @@
knots-exception? knots-exception?
knots-exception-stack knots-exception-stack
print-backtrace-and-exception/knots print-backtrace-and-exception/knots))
classify-stack-situation))
(define &knots-exception (define &knots-exception
(make-exception-type '&knots-exception (make-exception-type '&knots-exception

3
tests/backtraces/stack-situation-fibers.scm
View file

@ -11,7 +11,8 @@
(print-backtrace-and-exception/knots exn) (print-backtrace-and-exception/knots exn)
(simple-format/knots #t (simple-format/knots #t
"situation: ~A\n" "situation: ~A\n"
(classify-stack-situation ((@@ (knots backtraces)
classify-stack-situation)
(stack->vector stack)))) (stack->vector stack))))
(primitive-exit 0)) (primitive-exit 0))
(lambda () (lambda ()

3
tests/backtraces/stack-situation-script.scm
View file

@ -8,7 +8,8 @@
(print-backtrace-and-exception/knots exn) (print-backtrace-and-exception/knots exn)
(simple-format/knots #t (simple-format/knots #t
"situation: ~A\n" "situation: ~A\n"
(classify-stack-situation ((@@ (knots backtraces)
classify-stack-situation)
(stack->vector stack)))) (stack->vector stack))))
(primitive-exit 0)) (primitive-exit 0))
(lambda () (lambda ()

4
tests/backtraces/stack-situation-unknown.scm
View file

@ -9,7 +9,9 @@
(lambda (exn) (lambda (exn)
(let* ((stack (make-stack #t)) (let* ((stack (make-stack #t))
(stack-classification (stack-classification
(classify-stack-situation (stack->vector stack)))) ((@@ (knots backtraces)
classify-stack-situation)
(stack->vector stack))))
(print-backtrace-and-exception/knots exn) (print-backtrace-and-exception/knots exn)
(simple-format/knots #t "situation: ~A\n" stack-classification) (simple-format/knots #t "situation: ~A\n" stack-classification)
(primitive-exit 0))) (primitive-exit 0)))