From 7b6e3936687f07449c027ebe2965da36709f5560 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 15 Oct 2016 18:19:18 -0400
Subject: [PATCH] Use fast version of member

---
 scheme/char.sld               | 4 ++--
 scheme/cyclone/primitives.sld | 4 ++++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/scheme/char.sld b/scheme/char.sld
index cd508e42..ecb8feb0 100644
--- a/scheme/char.sld
+++ b/scheme/char.sld
@@ -62,11 +62,11 @@
     (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) 
-      (if (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))
+      (if (Cyc-fast-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))
+      (if (Cyc-fast-member c '(#\tab #\space #\return #\newline))
           #t
           #f))
     (define (digit-value c)
diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 6002f387..c461aa82 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -96,6 +96,7 @@
          eq?
          eqv?
          equal?
+         Cyc-fast-member
          ;assoc
          ;assq
          ;assv
@@ -222,6 +223,7 @@
          (eq? 2 2)
          (eqv? 2 2)
          (equal? 2 2)
+         (Cyc-fast-member 2 2)
          ;(assoc 2 2)
          ;(assq 2 2)
          ;(assv 2 2)
@@ -528,6 +530,7 @@
          ((eq? p 'eq?)           "Cyc_eq")
          ((eq? p 'eqv?)          "Cyc_eq")
          ((eq? p 'equal?)        "equalp")
+         ((eq? p 'Cyc-fast-member)  "memberp")
          ((eq? p 'boolean?)      "Cyc_is_boolean")
          ((eq? p 'char?)         "Cyc_is_char")
          ((eq? p 'null?)         "Cyc_is_null")
@@ -572,6 +575,7 @@
         <
         >=
         <=
+        Cyc-fast-member
         apply
         car
         cdr