Skip to content
Browse files

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

…rror in one of the comments.
  • Loading branch information...
1 parent ad418f0 commit 2e678e183728b2efcfbd89a511da87e16b5918c9 @JohnEarnest committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Parse.fs
View
4 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
;

0 comments on commit 2e678e1

Please sign in to comment.
Something went wrong with that request. Please try again.