diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-12 13:21:01 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-21 15:16:42 +0200 |
| commit | 123c6ac1f88d43d8fda248b86338a18790246ce1 (patch) | |
| tree | 3e67ce68bc2a7ce5766c75131afc987956c489ef /scripts | |
| parent | Remove unnecessary procedure flatten-tree. (diff) | |
| download | calp-123c6ac1f88d43d8fda248b86338a18790246ce1.tar.gz calp-123c6ac1f88d43d8fda248b86338a18790246ce1.tar.xz | |
Introduce module-declaration?.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/module-introspection.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm index a5b62311..dc430d8a 100644 --- a/scripts/module-introspection.scm +++ b/scripts/module-introspection.scm @@ -5,6 +5,7 @@ uniq unique-symbols find-module-declaration + module-declaration? )) @@ -32,11 +33,11 @@ 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 (lambda (form) - (cond ((null? form) #f) - ((not (pair? form)) #f) - (else (eq? 'define-module (car form))))) - forms) + (and=> (find module-declaration? forms) cadr)) |