mes: Add delete-duplicates.

* module/srfi/srfi-1.mes (delete-duplicates): New function.

diff --git a/module/srfi/srfi-1.mes b/module/srfi/srfi-1.mes
index d5103390ca5d37784f33e4b19676d1d3d37da6a4..58de5b08032cde50e48c23cbc8ddbc556ca4ab13 100644 (file)
--- a/module/srfi/srfi-1.mes
+++ b/module/srfi/srfi-1.mes
@@ -100,4 +100,13 @@
 
 (define last (compose car last-pair))
 
+(define (delete-duplicates lst . equal)
+  (let ((equal (and (pair? equal) (car equal))))
+    (let loop ((lst lst))
+      (if (null? lst) '()
+          (if (if equal (member (car lst) (cdr lst) equal)
+                  (member (car lst) (cdr lst)))
+              (loop (cdr lst))
+                (cons (car lst) (loop (cdr lst))))))))
+
 (include-from-path "srfi/srfi-1.scm")