diff options
author | Andy Wingo <wingo@pobox.com> | 2010-09-24 17:32:12 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-09-24 17:33:17 +0200 |
commit | 3e2c5f1ef32bee8cf0d728de558dbdd22316c966 (patch) | |
tree | 4c0082d5de9678be6d436865df5532103c5e8876 | |
parent | 8cbcaaa0ae965791310058934aafe08ad719982a (diff) | |
download | guile-3e2c5f1ef32bee8cf0d728de558dbdd22316c966.tar.gz |
fix ,traps REPL command
* module/system/repl/command.scm (traps): Fix this REPL meta-command.
-rw-r--r-- | module/system/repl/command.scm | 4 |
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 |