diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-04-02 16:57:42 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-04-02 16:57:42 -0400 |
| commit | bf197407cb485f0887b017b1c897c228afc22b8b (patch) | |
| tree | ab45fb69a879e3a064ad2fe2f99d6f887f26823c | |
| parent | 592610b6e54b6ed1ad6c70ae5650ad3ba6898fb5 (diff) | |
repl: Narrow stacks by one more frame.
| -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))) |