From 1000dde87131a77f456139bdf19e0a87b0776608 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Oct 2023 16:39:59 +0100 Subject: Merge (hnh module-introspection static) into parent module. It only contained a single binding, and the base module was already utilities. --- module/scripts/module-dependants.scm | 1 - module/scripts/module-imports.scm | 6 ++++-- module/scripts/peg-to-graph.scm | 4 ++-- 3 files changed, 6 insertions(+), 5 deletions(-) (limited to 'module/scripts') diff --git a/module/scripts/module-dependants.scm b/module/scripts/module-dependants.scm index 6bda1917..f39c548d 100644 --- a/module/scripts/module-dependants.scm +++ b/module/scripts/module-dependants.scm @@ -15,7 +15,6 @@ :use-module (ice-9 format) :use-module (texinfo string-utils) :use-module (hnh module-introspection) - :use-module ((hnh module-introspection static-util) :select (get-forms)) :export (main)) (define %summary "Print all modules which depend on module specified in target file.") diff --git a/module/scripts/module-imports.scm b/module/scripts/module-imports.scm index 7758c53a..39dc78da 100644 --- a/module/scripts/module-imports.scm +++ b/module/scripts/module-imports.scm @@ -13,8 +13,10 @@ (define-module (scripts module-imports) :use-module ((srfi srfi-1) :select (lset-difference)) :use-module ((rnrs lists) :select (remp filter partition)) - :use-module ((hnh module-introspection) :select (module-declaration? unique-symbols)) - :use-module ((hnh module-introspection static-util) :select (get-forms)) + :use-module ((hnh module-introspection) + :select (module-declaration? + unique-symbols + get-forms)) :use-module ((hnh module-introspection module-uses) :select (module-uses*)) :export (main) ) diff --git a/module/scripts/peg-to-graph.scm b/module/scripts/peg-to-graph.scm index afd7a4c3..82974042 100644 --- a/module/scripts/peg-to-graph.scm +++ b/module/scripts/peg-to-graph.scm @@ -1,7 +1,7 @@ (define-module (scripts peg-to-graph) :use-module ((graphviz) :prefix #{gv:}#) - :use-module ((hnh module-introspection) :select (unique-symbols)) - :use-module ((hnh module-introspection static-util) :select (get-forms)) + :use-module ((hnh module-introspection) + :select (unique-symbols get-forms)) :use-module (srfi srfi-1) :use-module (ice-9 match) :use-module (hnh util options) -- cgit v1.2.3