diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-09-23 17:25:30 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-09-23 17:25:30 +0200 |
| commit | 1241f6944bd6743bedbe21323b5907a07ecba4e2 (patch) | |
| tree | f4b84f5cd05069b09ccff3ea11c1478e63f3c673 /module/system/vm/trap-state.scm | |
| parent | 957205339a1ff1910e421d7bc43fcdfe6a802b25 (diff) | |
| download | guile-1241f6944bd6743bedbe21323b5907a07ecba4e2.tar.gz | |
trace printing tweak
* module/system/vm/trap-state.scm (add-trace-at-procedure-call!): Tweak
to the #:prefix string.
Diffstat (limited to 'module/system/vm/trap-state.scm')
| -rw-r--r-- | module/system/vm/trap-state.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index 591f84209..328471db1 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -204,7 +204,7 @@ (let* ((idx (next-index! trap-state)) (trap (trace-calls-to-procedure proc - #:prefix (format #f "trace trap ~a: " idx)))) + #:prefix (format #f "Trap ~a: " idx)))) (add-trap-wrapper! trap-state (make-trap-wrapper |