diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-12 13:19:56 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-21 15:16:42 +0200 |
| commit | 96da7cb8cfa6836e4a3071b76ec53f69df7ec9d8 (patch) | |
| tree | 82b37af261e2409aad79e384e8371c61e674cf6b /scripts | |
| parent | Introduce fs-find. (diff) | |
| download | calp-96da7cb8cfa6836e4a3071b76ec53f69df7ec9d8.tar.gz calp-96da7cb8cfa6836e4a3071b76ec53f69df7ec9d8.tar.xz | |
Remove unnecessary procedure flatten-tree.
(@ (hnh util) flatten) already does the same thing.
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) |