From 8a6eb8bfb0d27a6a9a40be3f9dce03233a1ee15f Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <phil@hagelb.org>
Date: Sat, 22 Feb 2020 17:28:55 -0800
Subject: [PATCH] Now member is part of microscheme.

---
 menelaus.scm | 30 +++++++++---------------------
 1 file changed, 9 insertions(+), 21 deletions(-)

diff --git a/menelaus.scm b/menelaus.scm
index d856fd7..36e824a 100644
--- a/menelaus.scm
+++ b/menelaus.scm
@@ -16,23 +16,12 @@
 
 ;;;;;;;;;;;;;;;;;;; utils
 
-(define (member v lst)
-  (if (null? lst)
-      #f
-      (if (equal? v (car lst))
-          lst
-          (member v (cdr lst)))))
-
-;; we need a numeric value to represent not-found; microscheme only has unsigned
-;; ints but this will still get us a reasonable not-found value
-(define not-found (- 0 1))
-
 (define (find-aux v x n max)
-  (if (= x (or (vector-ref v n) not-found))
-      n
-      (if (= n max)
-          #f
-          (find-aux v x (+ n 1) max))))
+  (let ((y (vector-ref v n)))
+    (if (and y (= x y))
+        n
+        (and (< n max)
+             (find-aux v x (+ n 1) max)))))
 
 (define (find v x)
   (find-aux v x 0 (- (vector-length v) 1)))
@@ -96,16 +85,15 @@
           #f)))
 
 (define (remove-last-down-aux key n)
-  (if (< n 9)
-      (if (equal? key (vector-ref last-keys-down n))
-          (vector-set! last-keys-down n #f)
-          (remove-last-down-aux key (+ n 1)))
-      #f))
+  (if (equal? key (vector-ref last-keys-down n))
+      (vector-set! last-keys-down n #f)
+      (and (< n 9) (remove-last-down-aux key (+ n 1)))))
 
 (define (add-last-down key) (add-last-down-aux key 0))
 (define (remove-last-down key) (remove-last-down-aux key 0))
 
 (define (remove-aux v lst checked all?)
+  ;; also missing the cond form
   (if (null? lst)
       (reverse checked)
       (if (equal? v (car lst))