diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-30 16:39:59 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | 1000dde87131a77f456139bdf19e0a87b0776608 (patch) | |
| tree | 503937fb0a6d5d6aa47a6e5d3be94c511c739286 /module/hnh/module-introspection | |
| parent | HAdd sections to introspection documentation. (diff) | |
| download | calp-1000dde87131a77f456139bdf19e0a87b0776608.tar.gz calp-1000dde87131a77f456139bdf19e0a87b0776608.tar.xz | |
Merge (hnh module-introspection static) into parent module.
It only contained a single binding, and the base module was already
utilities.
Diffstat (limited to 'module/hnh/module-introspection')
| -rw-r--r-- | module/hnh/module-introspection/all-modules.scm | 1 | ||||
| -rw-r--r-- | module/hnh/module-introspection/static-util.scm | 9 |
2 files changed, 0 insertions, 10 deletions
diff --git a/module/hnh/module-introspection/all-modules.scm b/module/hnh/module-introspection/all-modules.scm index 5b4b37d2..3d202839 100644 --- a/module/hnh/module-introspection/all-modules.scm +++ b/module/hnh/module-introspection/all-modules.scm @@ -4,7 +4,6 @@ :use-module (ice-9 match) :use-module (hnh util path) :use-module (hnh module-introspection) - :use-module ((hnh module-introspection static-util) :select (get-forms)) :export (all-files-and-modules-under-directory all-files-under-directory all-modules-under-directory diff --git a/module/hnh/module-introspection/static-util.scm b/module/hnh/module-introspection/static-util.scm deleted file mode 100644 index 7593ce3c..00000000 --- a/module/hnh/module-introspection/static-util.scm +++ /dev/null @@ -1,9 +0,0 @@ -(define-module (hnh module-introspection static-util) - :export (get-forms)) - -(define (get-forms port) - (let loop ((done '())) - (let ((form (read port))) - (if (eof-object? form) - done - (loop (cons form done)))))) |