* added (ikarus lists)

* moved $memq to (ikarus lists)

src/ikarus.core.ss

@@ -61,13 +61,6 @@
     (primitive-set! x v)
     (set-top-level-value! x v)))
 
-(primitive-set! '$memq
-  (lambda (x ls)
-    (let f ([x x] [ls ls])
-      (and (pair? ls)
-           (if (eq? x (car ls))
-               ls
-               (f x (cdr ls)))))))
 
 
 

src/ikarus.lists.ss

@@ -0,0 +1,15 @@
+
+(library (ikarus lists)
+  (export $memq)
+  (import (ikarus))
+
+  (define $memq
+    (lambda (x ls)
+      (let f ([x x] [ls ls])
+        (and (pair? ls)
+             (if (eq? x (car ls))
+                 ls
+                 (f x (cdr ls)))))))
+  
+  )
+

src/makefile.ss

@@ -27,6 +27,7 @@
       "ikarus.collect.ss"
       "ikarus.predicates.ss"
       "ikarus.pairs.ss"
+      "ikarus.lists.ss"
       "ikarus.fixnums.ss"
       "ikarus.chars.ss"
       "ikarus.records.ss"