minor cleanup.
parent
399d01f56e
commit
e8cc383388
|
@ -31,7 +31,7 @@ TUPLE: tokenizer-tuple any one many ;
|
||||||
|
|
||||||
: parser-tokenizer ( parser -- tokenizer )
|
: parser-tokenizer ( parser -- tokenizer )
|
||||||
[ 1quotation ] keep
|
[ 1quotation ] keep
|
||||||
[ swap [ = ] curry semantic ] curry dup \ tokenizer-tuple boa ;
|
[ swap [ = ] curry semantic ] curry dup tokenizer-tuple boa ;
|
||||||
|
|
||||||
: rule-tokenizer ( name word -- tokenizer )
|
: rule-tokenizer ( name word -- tokenizer )
|
||||||
rule parser-tokenizer ;
|
rule parser-tokenizer ;
|
||||||
|
|
Loading…
Reference in New Issue