diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-11-22 20:46:58 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-11-22 20:46:58 -0500 |
| commit | dc8ed4b97554c712cfb356170407d0c354f427ab (patch) | |
| tree | b7df44ad3085dc9a1a71452c4d8e0c5e42d33b89 | |
| parent | 0c5890f2fcaf39d6e709e5a2482b306640316ef3 (diff) | |
transform: Dedupe cblas-sgemm call.
* sly/math/transform (transform*): Use 'transform*!' instead of direct
'cblas-sgemm' call.
| -rw-r--r-- | sly/math/transform.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/sly/math/transform.scm b/sly/math/transform.scm index 7ec582e..bad88ac 100644 --- a/sly/math/transform.scm +++ b/sly/math/transform.scm @@ -134,11 +134,7 @@ null-transform if called without any arguments." identity-transform if called without any arguments." (define (mul a b) (let ((result (%make-transform (make-4x4-matrix)))) - (cblas-sgemm cblas-row-major cblas-no-trans cblas-no-trans - 4 4 4 1 - (transform->pointer a) 4 - (transform->pointer b) 4 - 0 (transform->pointer result) 4) + (transform*! result a b) result)) (reduce mul identity-transform transforms)) |