From bf197407cb485f0887b017b1c897c228afc22b8b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 2 Apr 2023 16:57:42 -0400 Subject: repl: Narrow stacks by one more frame. --- catbird/repl.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/catbird/repl.scm b/catbird/repl.scm index 1a77aa9..c30a51f 100644 --- a/catbird/repl.scm +++ b/catbird/repl.scm @@ -262,7 +262,11 @@ 3 ;; Remove outer stack frames up to the ;; start of the most recent stack. - tag)))) + tag + ;; And one more frame, because %start-stack + ;; invoking the start-stack thunk has its own frame + ;; too. + 0 (and tag 1))))) (define (throw-handler) (with-throw-handler #t (lambda () (start-stack #t (thunk))) -- cgit v1.2.3