summaryrefslogtreecommitdiff
path: root/module/system/repl/debug.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/debug.scm')
-rw-r--r--module/system/repl/debug.scm6
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