minor bug fix

svn: r3328
2006-06-11 18:06:52 +00:00 · 2006-06-11 18:06:52 +00:00 · 1a70f40e4f
commit 1a70f40e4f
parent 7d8b11a4a6
1 changed files with 4 additions and 4 deletions
--- a/collects/mztake/demos/sprofiler/sprofiler-mztake.ss
+++ b/collects/mztake/demos/sprofiler/sprofiler-mztake.ss
@ -10,10 +10,10 @@

 (define pings (make-hash 'equal))

-(for-each-e (where)
-            (match-lambda [(line function context rest ...) 
-                           (hash-table-increment! pings (list function context))]
-                          [_ (void)]))
+(for-each-e! (where)
+             (match-lambda [(line function context rest ...) 
+                            (hash-table-increment! pings (list function context))]
+                           [_ (void)]))

 (define clicks (changes (quotient milliseconds 50)))