mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

another trap printing tweak

Browse source 
* module/system/vm/trap-state.scm (add-trap-at-procedure-call!):
  (add-trace-at-procedure-call!): Breakpoint / tracepoint name tweaks.
This commit is contained in:
Andy Wingo 2010-09-23 17:28:15 +02:00
parent 665196884f
commit 3db15dce00
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)))