1 files changed, 22 insertions, 0 deletions
diff --git a/module/hnh/module-introspection.scm b/module/hnh/module-introspection.scm
new file mode 100644
index 00000000..83e561f1
--- /dev/null
+++ b/module/hnh/module-introspection.scm
@@ -0,0 +1,22 @@
+(define-module (hnh 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))