summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-09-15 22:31:16 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-09-15 22:31:16 -0400
commit4aefc3767fedb426a6279ab093ebd2e31d97c519 (patch)
tree983a37205fb044fd224fe8562c6aa2599c00e889
parent26d2866d23fbe9a9d1b877df1c046113f3cd8a0b (diff)
Clean up docstrings for helpers module.
-rw-r--r--2d/helpers.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/2d/helpers.scm b/2d/helpers.scm
index e71d7a1..cce88d8 100644
--- a/2d/helpers.scm
+++ b/2d/helpers.scm
@@ -29,11 +29,10 @@
rgba->gl-color))
(define (any-equal? elem . args)
- "Returns true if elem equals any of the arguments and returns false
-otherwise."
+ "Return #t if ELEM equals any of the elements in the list ARGS."
(any (lambda (e) (equal? elem e)) args))
(define (logand? . args)
- "Returns true if the result of a bitwise AND of the integer
-arguments is non-zero and returns false otherwise."
+ "Return #t if the result of a bitwise AND of the integers in list
+ARGS is non-zero."
(not (zero? (apply logand args))))