diff options
| -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)) |