lexer: fix output type of map-tokens

2010-03-26 16:31:48 -04:00 · 2010-03-26 16:31:48 -04:00 · dde21c3cc4
parent a566d8cc6b
commit dde21c3cc4
1 changed files with 1 additions and 1 deletions
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@ -104,7 +104,7 @@ PREDICATE: unexpected-eof < unexpected got>> not ;
    } cond ; inline recursive

 : map-tokens ( ... end quot: ( ... token -- ... elt ) -- ... seq )
-    collector [ each-token ] dip ; inline
+    collector [ each-token ] dip { } like ; inline

 : parse-tokens ( end -- seq )
    [ ] map-tokens ;