From b426f287389c590a9431902273e5017ef9ef5b23 Mon Sep 17 00:00:00 2001
From: prunedtree <prunedtree@gmail.com>
Date: Fri, 12 Jun 2009 01:29:34 -0700
Subject: [PATCH] make m^n private

---
 basis/math/matrices/matrices.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 61e98ee444..21d9a97adf 100644
--- 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>
\ No newline at end of file