From d282841a7805ebe51b12769de04d377b41524eb3 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 23 Mar 2026 11:43:25 +0000
Subject: [PATCH] Don't export classify-stack-situation

As it's not intended for general use.
---
 knots/backtraces.scm                         | 4 +---
 tests/backtraces/stack-situation-fibers.scm  | 3 ++-
 tests/backtraces/stack-situation-script.scm  | 3 ++-
 tests/backtraces/stack-situation-unknown.scm | 4 +++-
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/knots/backtraces.scm b/knots/backtraces.scm
index a12ecb6..306a469 100644
--- a/knots/backtraces.scm
+++ b/knots/backtraces.scm
@@ -32,9 +32,7 @@
             knots-exception?
             knots-exception-stack
 
-            print-backtrace-and-exception/knots
-
-            classify-stack-situation))
+            print-backtrace-and-exception/knots))
 
 (define &knots-exception
   (make-exception-type '&knots-exception
diff --git a/tests/backtraces/stack-situation-fibers.scm b/tests/backtraces/stack-situation-fibers.scm
index c1e9ec8..0aef4c7 100644
--- a/tests/backtraces/stack-situation-fibers.scm
+++ b/tests/backtraces/stack-situation-fibers.scm
@@ -11,7 +11,8 @@
            (print-backtrace-and-exception/knots exn)
            (simple-format/knots #t
                                 "situation: ~A\n"
-                                (classify-stack-situation
+                                ((@@ (knots backtraces)
+                                     classify-stack-situation)
                                  (stack->vector stack))))
          (primitive-exit 0))
      (lambda ()
diff --git a/tests/backtraces/stack-situation-script.scm b/tests/backtraces/stack-situation-script.scm
index a21a8bd..6fc944d 100644
--- a/tests/backtraces/stack-situation-script.scm
+++ b/tests/backtraces/stack-situation-script.scm
@@ -8,7 +8,8 @@
         (print-backtrace-and-exception/knots exn)
         (simple-format/knots #t
                              "situation: ~A\n"
-                             (classify-stack-situation
+                             ((@@ (knots backtraces)
+                                  classify-stack-situation)
                               (stack->vector stack))))
       (primitive-exit 0))
   (lambda ()
diff --git a/tests/backtraces/stack-situation-unknown.scm b/tests/backtraces/stack-situation-unknown.scm
index e95c263..920457b 100644
--- a/tests/backtraces/stack-situation-unknown.scm
+++ b/tests/backtraces/stack-situation-unknown.scm
@@ -9,7 +9,9 @@
      (lambda (exn)
        (let* ((stack (make-stack #t))
               (stack-classification
-               (classify-stack-situation (stack->vector stack))))
+               ((@@ (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)))