From 3e2c5f1ef32bee8cf0d728de558dbdd22316c966 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 24 Sep 2010 17:32:12 +0200 Subject: [PATCH] fix ,traps REPL command * module/system/repl/command.scm (traps): Fix this REPL meta-command. --- module/system/repl/command.scm | 4 ++-- 1 file 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 -- 2.20.1