From 907931e62d154564089a2e88145d56afa68231fa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 17 Mar 2022 20:28:48 +0100
Subject: Add uniq family of procedures.

---
 scripts/module-introspection.scm | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

(limited to 'scripts/module-introspection.scm')

diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm
index dc430d8a..17068371 100644
--- a/scripts/module-introspection.scm
+++ b/scripts/module-introspection.scm
@@ -2,7 +2,6 @@
   :use-module (srfi srfi-1)
   :use-module (hnh util)
   :export (get-forms
-           uniq
            unique-symbols
            find-module-declaration
            module-declaration?
@@ -16,23 +15,11 @@
           done
           (loop (cons form done))))))
 
-
-(define (uniq lst)
-  (cond ((null? lst) lst)
-        ((null? (cdr lst)) lst)
-        ((and (pair? lst)
-              (eqv? (car lst) (cadr lst)))
-         (uniq (cons (car lst) (cddr lst))))
-        (else (cons (car lst)
-                    (uniq (cdr lst))))))
-
-
 (define (unique-symbols tree)
-  (uniq
+  (univ
    (sort* (filter symbol? (flatten tree))
           string<? symbol->string)))
 
-
 (define (module-declaration? form)
   (cond ((null? form) #f)
         ((not (pair? form)) #f)
-- 
cgit v1.2.3