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

add polymorphic effects for lexer:each-token, map-tokens

db4
Joe Groff 2010-03-08 18:55:46 -08:00
parent cb656c6e6b
commit 10ca2ba695
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/lexer/lexer.factor
View File

@ -100,10 +100,10 @@ PREDICATE: unexpected-eof < unexpected
: (each-token) ( end quot -- pred quot )
[ [ [ scan dup ] ] dip [ = not ] curry [ [ f ] if* ] curry compose ] dip ; inline
: each-token ( end quot -- )
: each-token ( ... end quot: ( ... token -- ... ) -- ... )
(each-token) while drop ; inline
: map-tokens ( end quot -- seq )
: map-tokens ( ... end quot: ( ... token -- ... elt ) -- ... seq )
(each-token) produce nip ; inline
: parse-tokens ( end -- seq )