From 10ca2ba6956f980b77d2e8a0f0f3539470ccf9a4 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 8 Mar 2010 18:55:46 -0800 Subject: [PATCH] add polymorphic effects for lexer:each-token, map-tokens --- core/lexer/lexer.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor index e03cae74db..7f6324c251 100644 --- a/core/lexer/lexer.factor +++ b/core/lexer/lexer.factor @@ -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 )