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

Add 1token to parser combinators

release
Doug Coleman 2007-11-26 17:38:24 -06:00
parent decbaab185
commit 2a5b65a912
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/parser-combinators/parser-combinators.factor
View File

@ -32,6 +32,8 @@ M: token-parser parse ( input parser -- list )
2drop nil 2drop nil
] if ; ] if ;
: 1token ( n -- parser ) 1string token ;
TUPLE: satisfy-parser quot ; TUPLE: satisfy-parser quot ;
C: satisfy satisfy-parser ( quot -- parser ) C: satisfy satisfy-parser ( quot -- parser )