From 1c08ab0224ce5445f57cac6e6f163b5a34e0a402 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 14 May 2009 05:49:15 +0000
Subject: [PATCH] use hash-ref!

svn: r14801

original commit: 975b4d2fa84b080e74218127022cef3b53c88184
---
 collects/profile/analyzer.ss | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/collects/profile/analyzer.ss b/collects/profile/analyzer.ss
index 22bec08..5e5f651 100644
--- a/collects/profile/analyzer.ss
+++ b/collects/profile/analyzer.ss
@@ -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