add memq/memv.

TODO

@@ -19,7 +19,8 @@ v length
 v list
 v list->vector
 v make-vector
-memv
+v memq
+v memv
 v string
 v string-append
 v string?

scm.mes

@@ -23,6 +23,12 @@
 
 (define (list . rest) rest)
 (define (vector . rest) (list->vector rest))
+(define assv assq)
+(define (memq x lst)
+  (cond ((null? lst) #f)
+        ((eq? x (car lst)) lst)
+        (#t (memq x (cdr lst)))))
+(define memv memq)
 
 (define (+ x y) (- x (- 0 y)))
 

test.mes

@@ -222,4 +222,20 @@
 (display v)
 (newline)
 
+(display "memq a: ")
+(display (memq 'a '(a b c)))
+(newline)
+
+(display "memq b: ")
+(display (memq 'b '(a b c)))
+(newline)
+
+(display "memq c: ")
+(display (memq 'c '(a b c)))
+(newline)
+
+(display "memq d: ")
+(display (memq 'd '(a b c)))
+(newline)
+
 '()