From 38d938ebb50c3bf49c5e258e5166ae01b55ecd2d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 13 Dec 2014 13:35:32 -0500 Subject: math: transform: Update docstrings. * sly/math/transform (transform+, transform*): Update docstrings. --- sly/math/transform.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/sly/math/transform.scm b/sly/math/transform.scm index bad88ac..5d65e4c 100644 --- a/sly/math/transform.scm +++ b/sly/math/transform.scm @@ -113,8 +113,8 @@ TRANSFORM." (array-ref matrix 3 2)))) (define (transform+ . transforms) - "Return the sum of all given transformation matrices. Return -null-transform if called without any arguments." + "Return the sum of TRANSFORM. Return 'null-transform' if called +without any arguments." (define (add a b) (let ((m1 (transform-matrix a)) (m2 (transform-matrix b)) @@ -130,8 +130,8 @@ null-transform if called without any arguments." (bytevector->pointer (array-contents (transform-matrix t)))) (define (transform* . transforms) - "Return the product of all given transformation matrices. Return -identity-transform if called without any arguments." + "Return the product of TRANSFORMS. Return identity-transform if +called without any arguments." (define (mul a b) (let ((result (%make-transform (make-4x4-matrix)))) (transform*! result a b) -- cgit v1.2.3