syndicate-lang
/
minimart-benchmark-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update to match the new terminology

This commit is contained in:
Tony Garnock-Jones 2014-05-07 19:24:40 -04:00
parent 6c7efdefca
commit 86b5f9d431
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
measure-routes.rkt
View File

@ -45,7 +45,7 @@
(lambda ()
(let loop ((i 0))
(when (< i n-probes)
(match-value *the-routes* message-expr)
(matcher-match-value *the-routes* message-expr)
(loop (+ i 1)))))
'())))
(/ n-probes (/ wallclock-time 1000.0))))
@ -67,7 +67,8 @@
(lambda ()
(let inner-loop ()
(when (< *count* next-count)
(set! *the-routes* (ror *the-routes* (pattern->matcher *count* (list *count* ?))))
(set! *the-routes* (matcher-union *the-routes*
(pattern->matcher *count* (list *count* ?))))
(set! *count* (+ *count* 1))
(inner-loop))))
'()))