From c68182413ed510ee5a93a14a39c618d2ef346d90 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 25 Jun 2013 19:47:59 -0400
Subject: Change = to equal?

---
 2d/helpers.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/2d/helpers.scm b/2d/helpers.scm
index a8bf0cf..153b4b5 100644
--- a/2d/helpers.scm
+++ b/2d/helpers.scm
@@ -29,7 +29,7 @@
 (define (any-equal? elem . args)
   "Returns true if elem equals any of the arguments and returns false
 otherwise."
-  (any (lambda (e) (= elem e)) args))
+  (any (lambda (e) (equal? elem e)) args))
 
 (define (logand? . args)
   "Returns true if the result of a bitwise AND of the integer
-- 
cgit v1.2.3