From 4aefc3767fedb426a6279ab093ebd2e31d97c519 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sun, 15 Sep 2013 22:31:16 -0400
Subject: Clean up docstrings for helpers module.

---
 2d/helpers.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to '2d/helpers.scm')

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))))
-- 
cgit v1.2.3