basis: ERROR: changes.

[factor.git] / basis / generalizations / generalizations.factor

diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor
index 91b42d5a833611f2d7ee7ad411a9349f3607e862..49be966f0e8924a1f99509536963c5bd94fd0021 100644 (file)
--- a/basis/generalizations/generalizations.factor
+++ b/basis/generalizations/generalizations.factor
@@ -28,7 +28,7 @@ ERROR: nonpositive-npick n ;
 
 MACRO: npick ( n -- quot )
     {
-        { [ dup 0 <= ] [ nonpositive-npick ] }
+        { [ dup 0 <= ] [ throw-nonpositive-npick ] }
         { [ dup 1 = ] [ drop [ dup ] ] }
         [ 1 - [ dup ] [ '[ _ dip swap ] ] repeat ]
     } cond ;