diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/module-introspection.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm index 008deb56..a5b62311 100644 --- a/scripts/module-introspection.scm +++ b/scripts/module-introspection.scm @@ -28,17 +28,10 @@ (define (unique-symbols tree) (uniq - (sort* (filter symbol? (flatten-tree tree)) + (sort* (filter symbol? (flatten tree)) string<? symbol->string))) -(define (flatten-tree tree) - (cond ((null? tree) '()) - ((pair? tree) - (append (flatten-tree (car tree)) - (flatten-tree (cdr tree)))) - (else (list tree)))) - (define (find-module-declaration forms) (and=> (find (lambda (form) |