From f64e435b5710c3602c223c5027e515f0f6aefc02 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 6 Dec 2025 10:02:58 +0000
Subject: [PATCH] Use start-stack in fibers-force

Otherwise the backtraces are more confusing.
---
 knots/promise.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/knots/promise.scm b/knots/promise.scm
index 9df376b..6aa3f0b 100644
--- a/knots/promise.scm
+++ b/knots/promise.scm
@@ -82,7 +82,10 @@
                          (make-exception
                           exn
                           (make-knots-exception stack)))))
-                  (fibers-promise-thunk fp)))
+                  (lambda ()
+                    (start-stack
+                     #t
+                     ((fibers-promise-thunk fp))))))
               #:unwind? #t))
         (lambda vals
           (atomic-box-set! (fibers-promise-values-box fp)