parser-combinators: fix 'satisfy' parser for empty strings

diff --git a/contrib/parser-combinators/parser-combinators.factor b/contrib/parser-combinators/parser-combinators.factor
index 67523b094cd6fcbb11a5b7f88e681d471e74038b..e1e07b5585f52ed49b6cd9c3eaf0db8b242edc32 100644 (file)
--- a/contrib/parser-combinators/parser-combinators.factor
+++ b/contrib/parser-combinators/parser-combinators.factor
@@ -35,10 +35,14 @@ M: satisfy-parser (parse) ( input parser -- list )
   #! A parser that succeeds if the predicate,
   #! when passed the first character in the input, returns
   #! true.
-  satisfy-parser-quot >r unclip-slice dup r> call [
-    swap <parse-result> 1list
-  ] [
+  over empty? [
     2drop nil
+  ] [
+    satisfy-parser-quot >r unclip-slice dup r> call [
+      swap <parse-result> 1list
+    ] [
+      2drop nil
+    ] if 
   ] if ;
 
 TUPLE: epsilon-parser ;