steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

peg: simplify parse-satisfy.

locals-and-roots
John Benediktsson 2016-03-30 10:29:43 -07:00
parent 09cb888b48
commit 4138ac0654
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/peg/peg.factor
View File

@ -345,15 +345,15 @@ M: token-parser (compile) ( peg -- quot )
TUPLE: satisfy-parser quot ; TUPLE: satisfy-parser quot ;
: parse-satisfy ( input quot -- result ) : parse-satisfy ( input quot -- result )
swap dup empty? [ swap [
2drop f drop f
] [ ] [
unclip-slice rot dupd call [ unclip-slice rot dupd call [
<parse-result> <parse-result>
] [ ] [
2drop f 2drop f
] if ] if
] if ; inline ] if-empty ; inline
M: satisfy-parser (compile) M: satisfy-parser (compile)
quot>> '[ input-slice _ parse-satisfy ] ; quot>> '[ input-slice _ parse-satisfy ] ;