specialized-arrays: performed some cleanup.

[factor.git] / unmaintained / math / blas / matrices / matrices.factor

diff --git a/unmaintained/math/blas/matrices/matrices.factor b/unmaintained/math/blas/matrices/matrices.factor
index a551190dbdcc35e8080f5bd343a50bc633a54b3c..812bd10a5b89b294b53b090870548e0c1198b899 100644 (file)
--- a/unmaintained/math/blas/matrices/matrices.factor
+++ b/unmaintained/math/blas/matrices/matrices.factor
@@ -251,7 +251,6 @@ FUNCTOR: (define-blas-matrix) ( TYPE T U C -- )
 
 VECTOR      IS ${TYPE}-blas-vector
 <VECTOR>    IS <${TYPE}-blas-vector>
->ARRAY      IS >${TYPE}-array
 XGEMV       IS ${T}GEMV
 XGEMM       IS ${T}GEMM
 XGERU       IS ${T}GER${U}
@@ -281,7 +280,7 @@ M: MATRIX (blas-vector-like)
     drop <VECTOR> ;
 
 : >MATRIX ( arrays -- matrix )
-    [ >ARRAY underlying>> ] (>matrix) <MATRIX> ;
+    [ TYPE >c-array underlying>> ] (>matrix) <MATRIX> ;
 
 M: VECTOR n*M.V+n*V!
     (prepare-gemv) [ XGEMV ] dip ;