diff options
Diffstat (limited to '')
-rw-r--r-- | scripts/module-introspection.scm | 15 |
1 files changed, 1 insertions, 14 deletions
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) |