From 2a5b65a912e867f12d2562ba53befc09ba937043 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 26 Nov 2007 17:38:24 -0600 Subject: [PATCH] Add 1token to parser combinators --- extra/parser-combinators/parser-combinators.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/extra/parser-combinators/parser-combinators.factor b/extra/parser-combinators/parser-combinators.factor index d6c44659a5..80d25c1bb7 100755 --- 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 )