From 96d2b44f3e806f27f1a2e06a2eeb8413200aca00 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 24 Mar 2010 18:16:22 -0700
Subject: [PATCH] cursors: push the -out- part from -map into -map-

---
 extra/cursors/cursors.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
index a82f0e28a0..5a3e7475c6 100644
--- a/extra/cursors/cursors.factor
+++ b/extra/cursors/cursors.factor
@@ -305,10 +305,10 @@ M: map-cursor set-cursor-value-unsafe to>> set-cursor-value-unsafe ; inline
 M: map-cursor set-cursor-value        to>> set-cursor-value        ; inline
 
 : -map- ( begin end quot to -- begin' end' quot' )
-    swap [ '[ _ <map-cursor> ] bi@ ] dip '[ from>> @ ] ; inline
+    swap [ '[ _ <map-cursor> ] bi@ ] dip '[ from>> @ ] -out- ; inline
 
 : -map ( begin end quot to -- begin' end' quot' )
-    -map- -out ; inline
+    -map- -each ; inline
 
 !
 ! pusher cursor