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.scm4
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))))))