From 72b78eaef9d39e3beddd143370a0667866056d4d Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sat, 5 Jul 2008 19:39:26 -0700 Subject: [PATCH] performance improvement for converting large datasets to blas matrices --- extra/math/blas/matrices/matrices.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/extra/math/blas/matrices/matrices.factor b/extra/math/blas/matrices/matrices.factor index b29ca85d45..99f20b432b 100644 --- a/extra/math/blas/matrices/matrices.factor +++ b/extra/math/blas/matrices/matrices.factor @@ -2,7 +2,7 @@ USING: accessors alien alien.c-types arrays byte-arrays combinators combinators.lib combinators.short-circuit fry kernel locals macros math math.blas.cblas math.blas.vectors math.blas.vectors.private math.complex math.functions math.order multi-methods qualified -sequences sequences.private shuffle symbols ; +sequences sequences.merged sequences.private shuffle symbols ; QUALIFIED: syntax IN: math.blas.matrices @@ -137,8 +137,7 @@ METHOD: (blas-vector-like) { object object object double-complex-blas-matrix } C f >>transpose ; inline : (>matrix) ( arrays >c-array -- c-array ld rows cols transpose ) - [ flip ] dip - '[ concat @ ] [ first length dup ] [ length ] tri f ; inline + '[ @ ] [ length dup ] [ first length ] tri f ; inline PRIVATE>