summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-12-13 13:35:32 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-12-13 13:37:37 -0500
commit38d938ebb50c3bf49c5e258e5166ae01b55ecd2d (patch)
treef9889b381d62c00329d7997a7dd0711e8afd5996
parentbf34569ee9a5e33ab53633f172d8f0543e059cad (diff)
math: transform: Update docstrings.
* sly/math/transform (transform+, transform*): Update docstrings.
-rw-r--r--sly/math/transform.scm8
1 files 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)