basis: ERROR: changes.

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

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index d1894108c083b9742d7a348452e1bfe40d9a1c57..a41d803410a9aa57118300eaf26fd880102e6e0b 100644 (file)
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -174,7 +174,7 @@ ERROR: negative-power-matrix m n ;
     [ [ dupd m. ] when [ dup m. ] dip ] reduce nip ;
 
 : m^n ( m n -- n )
-    dup 0 >= [ (m^n) ] [ negative-power-matrix ] if ;
+    dup 0 >= [ (m^n) ] [ throw-negative-power-matrix ] if ;
 
 : stitch ( m -- m' )
     [ ] [ [ append ] 2map ] map-reduce ;