mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

trace printing tweak

Browse source 
* module/system/vm/trap-state.scm (add-trace-at-procedure-call!): Tweak
  to the #:prefix string.
This commit is contained in:
Andy Wingo 2010-09-23 17:25:30 +02:00
parent 957205339a
commit 1241f6944b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/trap-state.scm
View file

@ -204,7 +204,7 @@
(let* ((idx (next-index! trap-state)) (let* ((idx (next-index! trap-state))
(trap (trace-calls-to-procedure (trap (trace-calls-to-procedure
proc proc
#:prefix (format #f "trace trap ~a: " idx)))) #:prefix (format #f "Trap ~a: " idx))))
(add-trap-wrapper! (add-trap-wrapper!
trap-state trap-state
(make-trap-wrapper (make-trap-wrapper