make m^n private

2009-06-12 01:29:34 -07:00 · 2009-06-12 01:29:34 -07:00 · b426f28738
parent 68f7b1706a
commit b426f28738
1 changed files with 4 additions and 1 deletions
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@ -61,8 +61,11 @@ PRIVATE>

 : cross-zip ( seq1 seq2 -- seq1xseq2 )
    [ [ 2array ] with map ] curry map ;
+
+<PRIVATE
    
-: m^n ( m n -- n ) 
+: m^n ( m n -- m ) 
    make-bits over first length identity-matrix
    [ [ dupd m. ] when [ dup m. ] dip ] reduce nip ;

+PRIVATE>