From dc8ed4b97554c712cfb356170407d0c354f427ab Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 22 Nov 2014 20:46:58 -0500
Subject: transform: Dedupe cblas-sgemm call.

* sly/math/transform (transform*): Use 'transform*!' instead of direct
  'cblas-sgemm' call.
---
 sly/math/transform.scm | 6 +-----
 1 file changed, 1 insertion(+), 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))
 
-- 
cgit v1.2.3