basis: ERROR: changes.

[factor.git] / basis / math / polynomials / polynomials.factor

diff --git a/basis/math/polynomials/polynomials.factor b/basis/math/polynomials/polynomials.factor
index b2ce6945f2e71aa14aad830885587ae2d41460e5..2c4bb9ed8ffe6d29d9b493ee1b4278ffd151f7d6 100644 (file)
--- a/basis/math/polynomials/polynomials.factor
+++ b/basis/math/polynomials/polynomials.factor
@@ -46,7 +46,7 @@ ERROR: negative-power-polynomial p n ;
     make-bits { 1 } [ [ over p* ] when [ p-sq ] dip ] reduce nip ;
 
 : p^ ( p n -- p^n )
-    dup 0 >= [ (p^) ] [ negative-power-polynomial ] if ;
+    dup 0 >= [ (p^) ] [ throw-negative-power-polynomial ] if ;
 
 <PRIVATE