diff options
-rw-r--r-- | module/system/repl/debug.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm index 01b1b4cec..293b790fa 100644 --- a/module/system/repl/debug.scm +++ b/module/system/repl/debug.scm @@ -195,7 +195,11 @@ v)) (define (narrow-stack->vector stack . args) - (stack->vector (apply make-stack (stack-ref stack 0) args))) + (let ((narrowed (apply make-stack (stack-ref stack 0) args))) + (if narrowed + (stack->vector narrowed) + #()))) ; ? Can be the case for a tail-call to `throw' tho + ;; (define (debug) ;; (run-debugger |