steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove >r r>

db4
Doug Coleman 2008-12-08 00:05:52 -06:00
parent 819239edb9
commit 24c9337db6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/state-parser/state-parser.factor
View File

@ -139,7 +139,7 @@ M: not-enough-characters summary ( obj -- str )
: expect ( ch -- ) : expect ( ch -- )
get-char 2dup = [ 2drop ] [ get-char 2dup = [ 2drop ] [
>r 1string r> 1string expected [ 1string ] bi@ expected
] if next ; ] if next ;
: expect-string ( string -- ) : expect-string ( string -- )
@ -155,4 +155,4 @@ M: not-enough-characters summary ( obj -- str )
swap [ init-parser call ] with-input-stream ; inline swap [ init-parser call ] with-input-stream ; inline
: string-parse ( input quot -- ) : string-parse ( input quot -- )
>r <string-reader> r> state-parse ; inline [ <string-reader> ] dip state-parse ; inline