lexer: fix output type of map-tokens

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index f9554fa9bbebb97a62f7b63b7798d9f944789419..7939a49d7a3e0eb27cc97590699151442f991287 100644 (file)
--- 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 ;