core: Add member.
[mes.git] / module / mes / scm.mes
index 805b031838c34f73b611588988eedd4ed5815d2b..32fc13f617919063ff1b3494064aa357d41fce1a 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)