Fix usage of cache in pegs
parent
5986ccd47a
commit
c0f4e37427
|
@ -25,7 +25,7 @@ GENERIC: (compile) ( parser -- quot )
|
||||||
quot c [ drop H{ } clone ] cache
|
quot c [ drop H{ } clone ] cache
|
||||||
[
|
[
|
||||||
drop input quot call
|
drop input quot call
|
||||||
] cache* ; inline
|
] cache ; inline
|
||||||
|
|
||||||
: run-parser ( input quot -- result )
|
: run-parser ( input quot -- result )
|
||||||
#! If a packrat cache is available, use memoization for
|
#! If a packrat cache is available, use memoization for
|
||||||
|
|
Loading…
Reference in New Issue