From dde21c3cc40cfd6b29296e5b10020c2c76b0c22f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 26 Mar 2010 16:31:48 -0400
Subject: [PATCH] lexer: fix output type of map-tokens

---
 core/lexer/lexer.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index f9554fa9bb..7939a49d7a 100644
--- 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 ;