1 files changed, 1 insertions, 22 deletions
diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm
index dc430d8a..ba455cfc 100644
--- a/scripts/module-introspection.scm
+++ b/scripts/module-introspection.scm
@@ -1,38 +1,17 @@
 (define-module (module-introspection)
   :use-module (srfi srfi-1)
   :use-module (hnh util)
-  :export (get-forms
-           uniq
-           unique-symbols
+  :export (unique-symbols
            find-module-declaration
            module-declaration?
            ))
 
 
-(define (get-forms port)
-  (let loop ((done '()))
-    (let ((form (read port)))
-      (if (eof-object? form)
-          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
    (sort* (filter symbol? (flatten tree))
           string<? symbol->string)))
 
-
 (define (module-declaration? form)
   (cond ((null? form) #f)
         ((not (pair? form)) #f)