diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-12 13:25:13 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-21 21:16:45 +0200 |
| commit | 873241a396e37378d56d014aa8cb00fcd614273b (patch) | |
| tree | 14e983edcb47dc5e17464198465cfab8c4cbff1d /scripts/all-modules.scm | |
| parent | Introduce module-declaration?. (diff) | |
| download | calp-873241a396e37378d56d014aa8cb00fcd614273b.tar.gz calp-873241a396e37378d56d014aa8cb00fcd614273b.tar.xz | |
Use module-introspection more.
Diffstat (limited to 'scripts/all-modules.scm')
| -rw-r--r-- | scripts/all-modules.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/scripts/all-modules.scm b/scripts/all-modules.scm index ad6d3b72..b83644e5 100644 --- a/scripts/all-modules.scm +++ b/scripts/all-modules.scm @@ -4,6 +4,7 @@ :use-module (ice-9 ftw) :use-module (ice-9 match) :use-module (hnh util path) + :use-module (module-introspection) :export (all-files-and-modules-under-directory all-modules-under-directory fs-find-base fs-find)) @@ -29,10 +30,8 @@ (map (lambda (file) (list file - (match (call-with-input-file file read) - (('define-module (module ...) _ ...) - module) - (_ #f)))) + (call-with-input-file file + (compose find-module-declaration get-forms)))) files)) (define (all-modules-under-directory dir) |