syndicate-lang
/
marketplace-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add instrumentation for feature-specific-profiling.

This commit is contained in:
Vincent St-Amour 2014-04-25 15:54:56 -04:00
parent a2e51dc9be
commit 70b06aa0b0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
process.rkt
View File

@ -12,7 +12,10 @@
action-tree->quasiqueue
quit-interruptk
run-ready
notify-route-change-vm)
notify-route-change-vm
marketplace-continuation-mark-key)
(define marketplace-continuation-mark-key (make-continuation-mark-key 'marketplace))
(define-syntax-rule (send-to-user p (e) failure-result enclosed-expr)
(send-to-user* (process-debug-name p) (process-pid p) (e) failure-result enclosed-expr))
@ -26,7 +29,9 @@
debug-name pid e))
failure-result)])
(marketplace-log 'debug "Entering process ~v(~v)" debug-name pid)
(define result enclosed-expr)
(define result (with-continuation-mark marketplace-continuation-mark-key
(or debug-name pid)
enclosed-expr))
(marketplace-log 'debug "Leaving process ~v(~v)" debug-name pid)
result))