aboutsummaryrefslogtreecommitdiff
path: root/scripts/module-introspection.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/module-introspection.scm')
-rw-r--r--scripts/module-introspection.scm22
1 files changed, 0 insertions, 22 deletions
diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm
deleted file mode 100644
index ba455cfc..00000000
--- a/scripts/module-introspection.scm
+++ /dev/null
@@ -1,22 +0,0 @@
-(define-module (module-introspection)
- :use-module (srfi srfi-1)
- :use-module (hnh util)
- :export (unique-symbols
- find-module-declaration
- module-declaration?
- ))
-
-
-(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)
- (else (eq? 'define-module (car form)))))
-
-(define (find-module-declaration forms)
- (and=> (find module-declaration? forms)
- cadr))