From ffccd7ae0beafe9e493e59ed8f7e8dd5ccbf473a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 20 Aug 2016 02:54:14 -0400
Subject: [PATCH] Do not return value of (member), but a boolean

---
 scheme/char.sld | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/scheme/char.sld b/scheme/char.sld
index d03f44f1..cd508e42 100644
--- a/scheme/char.sld
+++ b/scheme/char.sld
@@ -61,8 +61,14 @@
     (define (char-alphabetic? c) (or (char-upper-case? c) (char-lower-case? c)))
     (define (char-upper-case? c) (and (char>=? c #\A) (char<=? c #\Z))) ;; ASCII-only
     (define (char-lower-case? c) (and (char>=? c #\a) (char<=? c #\z))) ;; ASCII-only
-    (define (char-numeric? c) (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
-    (define (char-whitespace? c) (member c '(#\tab #\space #\return #\newline)))
+    (define (char-numeric? c) 
+      (if (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))
+          #t
+          #f))
+    (define (char-whitespace? c) 
+      (if (member c '(#\tab #\space #\return #\newline))
+          #t
+          #f))
     (define (digit-value c)
       (if (char-numeric? c)
           (- (char->integer c) (char->integer #\0))