Add 1token to parser combinators

2007-11-26 17:38:24 -06:00 · 2007-11-26 17:38:24 -06:00 · 2a5b65a912
parent decbaab185
commit 2a5b65a912
1 changed files with 2 additions and 0 deletions
--- a/extra/parser-combinators/parser-combinators.factor
+++ b/extra/parser-combinators/parser-combinators.factor
@ -32,6 +32,8 @@ M: token-parser parse ( input parser -- list )
        2drop nil
    ] if ;

+: 1token ( n -- parser ) 1string token ;
+
 TUPLE: satisfy-parser quot ;

 C: satisfy satisfy-parser ( quot -- parser )