summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/system/repl/command.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 54cd34d03..d6b6b22f5 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -611,11 +611,11 @@ Show the set of currently attached traps (breakpoints and tracepoints)."
(let ((traps (list-traps)))
(if (null? traps)
(format #t "No traps set.~%")
- (for-each (lambda (idx name)
+ (for-each (lambda (idx)
(format #t " ~a: ~a~a~%"
idx (trap-name idx)
(if (trap-enabled? idx) "" " (disabled)")))
- (map car traps) (map cdr traps)))))
+ traps))))
(define-meta-command (delete repl idx)
"delete IDX