diff options
-rw-r--r-- | 2d/helpers.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 |