From 76e1b0582ff02079a085c39c120410cf9641bc9b Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 5 Apr 2018 11:02:06 +0200
Subject: [PATCH] mes: Remove duplicate memq.

* module/mes/base-0.mes (memq): Remove.
---
 module/mes/base-0.mes | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/module/mes/base-0.mes b/module/mes/base-0.mes
index a8568e03..44bd42f3 100644
--- 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))))