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