From bea1e3732efa3ea336042ead036190718ea74c0c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 23 Aug 2009 01:00:46 -0400
Subject: [PATCH] revert replicate change again...the world is not ready

---
 core/sequences/sequences.factor | 2 --
 1 file changed, 2 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 281290c3d2..177a157994 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -424,11 +424,9 @@ PRIVATE>
     over map-as ; inline
 
 : replicate ( seq quot -- newseq )
-    [ iota ] dip
     [ drop ] prepose map ; inline
 
 : replicate-as ( seq quot exemplar -- newseq )
-    [ iota ] 2dip
     [ [ drop ] prepose ] dip map-as ; inline
 
 : change-each ( seq quot -- )