From 7b7f22fae2c20017e8d88f6dbaa91af89f086600 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 22 Aug 2009 20:59:56 -0400 Subject: [PATCH] Revert "use iota in replicate" This reverts commit 88d1f0d78a55a2e86070509a33796ebf4afda9b8. --- core/sequences/sequences.factor | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index de2435c292..177a157994 100755 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -99,10 +99,10 @@ M: f like drop [ f ] when-empty ; inline INSTANCE: f immutable-sequence ! Integers support the sequence protocol -! M: integer length ; inline -! M: integer nth-unsafe drop ; inline +M: integer length ; inline +M: integer nth-unsafe drop ; inline -! INSTANCE: integer immutable-sequence +INSTANCE: integer immutable-sequence PRIVATE> @@ -424,10 +424,9 @@ PRIVATE> over map-as ; inline : replicate ( seq quot -- newseq ) - [ iota ] dip [ drop ] prepose map ; inline + [ drop ] prepose map ; inline : replicate-as ( seq quot exemplar -- newseq ) - [ iota ] 2dip [ [ drop ] prepose ] dip map-as ; inline : change-each ( seq quot -- )