tweaked Parse to make error handling more flexible and corrected an e…

…rror in one of the comments.
JohnEarnest · Oct 14, 2012 · 2e678e1 · 2e678e1
1 parent ad418f0
commit 2e678e1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Parse.fs b/lib/Parse.fs
@@ -42,7 +42,7 @@
 	then
 ;
 
-: fail ( string -- )
+:vector fail ( string -- )
 	type
 	" (line " type line @ .num
 	", char " type char @ .num
@@ -198,7 +198,7 @@
 
 :array pad pad-size 0
 
-: accept> ( pred -- )
+: accept> ( pred -- string )
 	>r pad pad-size r> input> trim pad
 ;