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