Update to match the new terminology
This commit is contained in:
parent
6c7efdefca
commit
86b5f9d431
|
@ -45,7 +45,7 @@
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(let loop ((i 0))
|
(let loop ((i 0))
|
||||||
(when (< i n-probes)
|
(when (< i n-probes)
|
||||||
(match-value *the-routes* message-expr)
|
(matcher-match-value *the-routes* message-expr)
|
||||||
(loop (+ i 1)))))
|
(loop (+ i 1)))))
|
||||||
'())))
|
'())))
|
||||||
(/ n-probes (/ wallclock-time 1000.0))))
|
(/ n-probes (/ wallclock-time 1000.0))))
|
||||||
|
@ -67,7 +67,8 @@
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(let inner-loop ()
|
(let inner-loop ()
|
||||||
(when (< *count* next-count)
|
(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))
|
(set! *count* (+ *count* 1))
|
||||||
(inner-loop))))
|
(inner-loop))))
|
||||||
'()))
|
'()))
|
||||||
|
|
Loading…
Reference in New Issue