From 87a6e9cb3170f5862ca898949f6b5cbf1adf101c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 22 Aug 2009 20:59:36 -0400 Subject: [PATCH] use iota in replicate --- core/sequences/sequences.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 177a157994..de2435c292 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,9 +424,10 @@ PRIVATE> over map-as ; inline : replicate ( seq quot -- newseq ) - [ drop ] prepose map ; inline + [ iota ] dip [ drop ] prepose map ; inline : replicate-as ( seq quot exemplar -- newseq ) + [ iota ] 2dip [ [ drop ] prepose ] dip map-as ; inline : change-each ( seq quot -- )