From 96da7cb8cfa6836e4a3071b76ec53f69df7ec9d8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 12 Apr 2022 13:19:56 +0200 Subject: Remove unnecessary procedure flatten-tree. (@ (hnh util) flatten) already does the same thing. --- scripts/module-introspection.scm | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'scripts') 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)) stringstring))) -(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) -- cgit v1.2.3