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

minor bug fix

Browse Source 
svn: r3328
This commit is contained in:
Greg Cooper 2006-06-11 18:06:52 +00:00
parent 7d8b11a4a6
commit 1a70f40e4f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mztake/demos/sprofiler/sprofiler-mztake.ss
View File

@ -10,10 +10,10 @@
(define pings (make-hash 'equal)) (define pings (make-hash 'equal))
(for-each-e (where) (for-each-e! (where)
(match-lambda [(line function context rest ...) (match-lambda [(line function context rest ...)
(hash-table-increment! pings (list function context))] (hash-table-increment! pings (list function context))]
[_ (void)])) [_ (void)]))
(define clicks (changes (quotient milliseconds 50))) (define clicks (changes (quotient milliseconds 50)))