fix ,traps REPL command

* module/system/repl/command.scm (traps): Fix this REPL meta-command.

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 54cd34d..d6b6b22 100644 (file)
--- 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