diff --git a/extra/math/blas/cblas/cblas.factor b/extra/math/blas/cblas/cblas.factor index 266972fc99..31807b7389 100644 --- a/extra/math/blas/cblas/cblas.factor +++ b/extra/math/blas/cblas/cblas.factor @@ -2,9 +2,9 @@ USING: alien alien.c-types alien.syntax kernel system combinators ; IN: math.blas.cblas << "cblas" { - { [ os macosx? ] [ "libcblas.dylib" "cdecl" add-library ] } - { [ os windows? ] [ "cblas.dll" "cdecl" add-library ] } - [ drop "libcblas.so" "cdecl" add-library ] + { [ os macosx? ] [ "libblas.dylib" "cdecl" add-library ] } + { [ os windows? ] [ "blas.dll" "cdecl" add-library ] } + [ "libblas.so" "cdecl" add-library ] } cond >> LIBRARY: cblas diff --git a/extra/math/blas/matrices/matrices.factor b/extra/math/blas/matrices/matrices.factor index 965eda813d..b29ca85d45 100644 --- a/extra/math/blas/matrices/matrices.factor +++ b/extra/math/blas/matrices/matrices.factor @@ -215,7 +215,7 @@ syntax:M: blas-matrix-base clone clone n*M.M+n*M-in-place ; : n*M.V ( alpha A x -- alpha*A.x ) - 1.0 2over [ Mheight ] dip empty-vector + 1.0 2over [ Mheight ] dip n*M.V+n*V-in-place ; inline : M.V ( A x -- A.x )