suzanne.soy/profile
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use hash-ref!

Browse Source 
svn: r14801

original commit: 975b4d2fa84b080e74218127022cef3b53c88184
This commit is contained in:
Eli Barzilay 2009-05-14 05:49:15 +00:00
parent 1459403557
commit 1c08ab0224
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/profile/analyzer.ss
View File

@ -55,13 +55,8 @@
(or (node-id (edge-caller edge)) '???)
(or (node-id (edge-callee edge)) '???))))
(define with-hash:not-found (gensym))
(define-syntax-rule (with-hash <hash> <key> <expr>)
(let ([t <hash>] [k <key>])
(let ([v (hash-ref t k with-hash:not-found)])
(if (eq? v with-hash:not-found)
(let ([v <expr>]) (hash-set! t k v) v)
v))))
(hash-ref! <hash> <key> (lambda () <expr>)))
;; This function analyzes the output of the sampler. Returns a `profile'
;; struct holding a list of `node' values, each one representing a node in the