diff options
Diffstat (limited to 'module/system/repl/debug.scm')
-rw-r--r-- | module/system/repl/debug.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm index 55062d783..383d37921 100644 --- a/module/system/repl/debug.scm +++ b/module/system/repl/debug.scm @@ -184,7 +184,7 @@ (define (frame->stack-vector frame) (let ((stack (make-stack frame))) (match (fluid-ref %stacks) - (((stack-tag . prompt-tag) . _) + ((stack-tag . prompt-tag) (narrow-stack->vector stack ;; Take the stack from the given frame, cutting 0 frames. @@ -206,5 +206,5 @@ ;; 2 ;; ;; Narrow the end of the stack to the most recent start-stack. ;; (and (pair? (fluid-ref %stacks)) -;; (cdar (fluid-ref %stacks)))))) +;; (cdr (fluid-ref %stacks)))))) |