diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-09-23 17:28:15 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-09-23 17:28:15 +0200 |
| commit | 3db15dce0012c5f384fa9b1628b35913aa0b62ba (patch) | |
| tree | 2e0bfe154f3686f29354f67445095284668efa16 /module/system/vm/trap-state.scm | |
| parent | 665196884f6b16b6202c35dcabe0f2303ea6ebdf (diff) | |
| download | guile-3db15dce0012c5f384fa9b1628b35913aa0b62ba.tar.gz | |
another trap printing tweak
* module/system/vm/trap-state.scm (add-trap-at-procedure-call!):
(add-trace-at-procedure-call!): Breakpoint / tracepoint name tweaks.
Diffstat (limited to 'module/system/vm/trap-state.scm')
| -rw-r--r-- | module/system/vm/trap-state.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index d97895e51..ca6bb3ecb 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -194,7 +194,7 @@ trap-state (make-trap-wrapper idx #t trap - (format #f "breakpoint at ~a" proc))))) + (format #f "Breakpoint at ~a" proc))))) (define* (add-trace-at-procedure-call! proc #:optional (trap-state (the-trap-state))) @@ -206,7 +206,7 @@ trap-state (make-trap-wrapper idx #t trap - (format #f "tracepoint at ~a" proc))))) + (format #f "Tracepoint at ~a" proc))))) (define* (add-trap! trap name #:optional (trap-state (the-trap-state))) (let* ((idx (next-index! trap-state))) |