diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor index e7b3ee8252..b2d6b06697 100644 --- a/basis/generalizations/generalizations.factor +++ b/basis/generalizations/generalizations.factor @@ -15,7 +15,7 @@ IN: generalizations MACRO: nsequence ( n seq -- ) [ - [ drop ] [ '[ _ _ new-sequence ] ] 2bi + [ drop iota ] [ '[ _ _ new-sequence ] ] 2bi [ '[ @ [ _ swap set-nth-unsafe ] keep ] ] reduce ] keep '[ @ _ like ] ; @@ -27,7 +27,7 @@ MACRO: nsum ( n -- ) 1 - [ + ] n*quot ; MACRO: firstn-unsafe ( n -- ) - [ '[ [ _ ] dip nth-unsafe ] ] map '[ _ cleave ] ; + iota [ '[ [ _ ] dip nth-unsafe ] ] map '[ _ cleave ] ; MACRO: firstn ( n -- ) dup zero? [ drop [ drop ] ] [ @@ -94,7 +94,7 @@ MACRO: mnswap ( m n -- ) 1 + '[ _ -nrot ] swap '[ _ _ napply ] ; MACRO: nweave ( n -- ) - [ dup [ '[ _ _ mnswap ] ] with map ] keep + [ dup iota [ '[ _ _ mnswap ] ] with map ] keep '[ _ _ ncleave ] ; MACRO: nbi-curry ( n -- )