mes: Remove duplicate memq.

* module/mes/base-0.mes (memq): Remove.

diff --git a/module/mes/base-0.mes b/module/mes/base-0.mes
index a8568e03b29a089cdf29503618a5bf65de822e37..44bd42f32e3398e6483983d8a847a8c3ad6b9dfe 100644 (file)
--- a/module/mes/base-0.mes
+++ b/module/mes/base-0.mes
@@ -118,11 +118,6 @@
 (define-macro (include-from-path file)
   (list 'load (list string-append %moduledir file)))
 
-(define (memq x lst)
-  (if (null? lst) #f
-      (if (eq? x (car lst)) lst
-          (memq x (cdr lst)))))
-
 (define (string-join lst infix)
   (if (null? (cdr lst)) (car lst)
       (string-append (car lst) infix (string-join (cdr lst) infix))))