diff --git a/basis/generalizations/generalizations-tests.factor b/basis/generalizations/generalizations-tests.factor index c877acf936..b781e2a7f0 100644 --- a/basis/generalizations/generalizations-tests.factor +++ b/basis/generalizations/generalizations-tests.factor @@ -67,3 +67,8 @@ IN: generalizations.tests [ 1 2 3 [ ] [ ] 3 nbi-curry ] unit-test [ 15 3 ] [ 1 2 3 4 5 [ + + + + ] [ - - - - ] 5 nbi ] unit-test + +: nover-test ( -- a b c d e f g ) + 1 2 3 4 3 nover ; + +[ 1 2 3 4 1 2 3 ] [ nover-test ] unit-test diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor index 0ea179b52c..abcbd54cab 100644 --- a/basis/generalizations/generalizations.factor +++ b/basis/generalizations/generalizations.factor @@ -40,7 +40,7 @@ MACRO: npick ( n -- ) 1- [ dup ] [ '[ _ dip swap ] ] repeat ; MACRO: nover ( n -- ) - dup '[ _ 1 + npick ] n*quot ; + dup 1 + '[ _ npick ] n*quot ; MACRO: ndup ( n -- ) dup '[ _ npick ] n*quot ;