Revert "core: Add member."
[mes.git] / module / mes / scm.mes
index 32fc13f617919063ff1b3494064aa357d41fce1a..805b031838c34f73b611588988eedd4ed5815d2b 100644 (file)
 
 (define memv memq)
 
+(define (member x lst)
+  (if (null? lst) #f
+      (if (equal? x (car lst)) lst
+          (member x (cdr lst)))))
+
 \f
 ;;; Lists
 (define (make-list n . x)