diff options
| -rw-r--r-- | catbird/repl.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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))) |