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

Rename "matcher" to "trie".

This commit is contained in:
Tony Garnock-Jones 2016-01-21 22:00:42 -05:00
parent af178f6497
commit 6966490f46
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
measure-routes.rkt
View File

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