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 /module/system/repl/command.scm | |
| parent | 8cbcaaa0ae965791310058934aafe08ad719982a (diff) | |
| download | guile-3e2c5f1ef32bee8cf0d728de558dbdd22316c966.tar.gz | |
fix ,traps REPL command
* module/system/repl/command.scm (traps): Fix this REPL meta-command.
Diffstat (limited to 'module/system/repl/command.scm')
| -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 |