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,7 +10,7 @@

 (define pings (make-hash 'equal))

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