diff options
Diffstat (limited to 'scripts/module-introspection.scm')
-rw-r--r-- | scripts/module-introspection.scm | 22 |
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)) |