From 954737dfeb558b70a04a487212d74552c1f3f757 Mon Sep 17 00:00:00 2001
From: Joe Groff <user@victoria.rentrak.com>
Date: Sat, 5 Jul 2008 15:13:48 -0700
Subject: [PATCH] fix blas library load for unix. fix reference to old
empty-vector word in matrices
---
extra/math/blas/cblas/cblas.factor | 6 +++---
extra/math/blas/matrices/matrices.factor | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
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 <empty-vector>
n*M.V+n*V-in-place ; inline
: M.V ( A x -- A.x )