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)