mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix ,traps REPL command

Browse source 
* module/system/repl/command.scm (traps): Fix this REPL meta-command.
This commit is contained in:
Andy Wingo 2010-09-24 17:32:12 +02:00
parent 8cbcaaa0ae
commit 3e2c5f1ef3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/repl/command.scm
View file

@ -611,11 +611,11 @@ Show the set of currently attached traps (breakpoints and tracepoints)."
(let ((traps (list-traps))) (let ((traps (list-traps)))
(if (null? traps) (if (null? traps)
(format #t "No traps set.~%") (format #t "No traps set.~%")
(for-each (lambda (idx name) (for-each (lambda (idx)
(format #t " ~a: ~a~a~%" (format #t " ~a: ~a~a~%"
idx (trap-name idx) idx (trap-name idx)
(if (trap-enabled? idx) "" " (disabled)"))) (if (trap-enabled? idx) "" " (disabled)")))
(map car traps) (map cdr traps))))) traps))))
(define-meta-command (delete repl idx) (define-meta-command (delete repl idx)
"delete IDX "delete IDX