diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-09-23 17:26:12 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-09-23 17:26:12 +0200 |
| commit | 665196884f6b16b6202c35dcabe0f2303ea6ebdf (patch) | |
| tree | 066a554a4c25aea49b153bcc81b5004482d04a6a /module/system/repl/command.scm | |
| parent | 1241f6944bd6743bedbe21323b5907a07ecba4e2 (diff) | |
| download | guile-665196884f6b16b6202c35dcabe0f2303ea6ebdf.tar.gz | |
list-traps just returns trap identifiers, not names
* module/system/vm/trap-state.scm (list-traps): Just return the integers
identifying the traps; people can use trap-name to get the names.
* module/system/repl/command.scm (traps): Adapt.
Diffstat (limited to 'module/system/repl/command.scm')
| -rw-r--r-- | module/system/repl/command.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index ebe374db9..a052b93e7 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -596,13 +596,13 @@ called, and its return value(s) when it returns." "traps Show the set of currently attached traps. -Show the set of currently attached traps (breakpoints)." +Show the set of currently attached traps (breakpoints and tracepoints)." (let ((traps (list-traps))) (if (null? traps) - (format #t "No traps enabled.~%") + (format #t "No traps set.~%") (for-each (lambda (idx name) (format #t " ~a: ~a~a~%" - idx name + idx (trap-name idx) (if (trap-enabled? idx) "" " (disabled)"))) (map car traps) (map cdr traps))))) |