diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-02-12 00:14:37 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-02-24 16:49:00 +0100 |
commit | e2ed33ef0445c867fe56c247054aa67e834861f2 (patch) | |
tree | cdd41c34c148765c9b64935e122da1ef43fe3fff /module/system | |
parent | 89c3bae3cf68fac9b6bf10fd377cd11de040be71 (diff) | |
download | guile-e2ed33ef0445c867fe56c247054aa67e834861f2.tar.gz |
Remove unnecessary module imports.
These were found with:
make GUILE_WARNINGS='-W1 -Wunused-module'
* module/ice-9/copy-tree.scm:
* module/ice-9/eval-string.scm:
* module/ice-9/getopt-long.scm:
* module/ice-9/poll.scm:
* module/ice-9/popen.scm:
* module/ice-9/sandbox.scm:
* module/ice-9/threads.scm:
* module/sxml/apply-templates.scm:
* module/sxml/simple.scm:
* module/system/base/types.scm:
* module/system/repl/command.scm:
* module/system/repl/common.scm:
* module/system/repl/coop-server.scm:
* module/system/repl/debug.scm:
* module/system/repl/error-handling.scm:
* module/system/repl/repl.scm:
* module/system/repl/server.scm:
* module/system/vm/assembler.scm:
* module/system/vm/disassembler.scm:
* module/system/vm/dwarf.scm:
* module/system/vm/elf.scm:
* module/system/vm/frame.scm:
* module/system/vm/inspect.scm:
* module/system/vm/linker.scm:
* module/system/vm/program.scm:
* module/system/vm/trace.scm:
* module/system/vm/trap-state.scm:
* module/system/vm/traps.scm:
* module/system/xref.scm:
* module/texinfo/indexing.scm:
* module/texinfo/plain-text.scm:
* module/texinfo/reflection.scm:
* module/texinfo/string-utils.scm:
* module/web/client.scm:
* module/web/http.scm:
* module/web/request.scm:
* module/web/response.scm: Remove imports of unused modules.
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/base/types.scm | 1 | ||||
-rw-r--r-- | module/system/repl/command.scm | 3 | ||||
-rw-r--r-- | module/system/repl/common.scm | 2 | ||||
-rw-r--r-- | module/system/repl/coop-server.scm | 1 | ||||
-rw-r--r-- | module/system/repl/debug.scm | 6 | ||||
-rw-r--r-- | module/system/repl/error-handling.scm | 1 | ||||
-rw-r--r-- | module/system/repl/repl.scm | 4 | ||||
-rw-r--r-- | module/system/repl/server.scm | 1 | ||||
-rw-r--r-- | module/system/vm/assembler.scm | 2 | ||||
-rw-r--r-- | module/system/vm/disassembler.scm | 2 | ||||
-rw-r--r-- | module/system/vm/dwarf.scm | 2 | ||||
-rw-r--r-- | module/system/vm/elf.scm | 2 | ||||
-rw-r--r-- | module/system/vm/frame.scm | 2 | ||||
-rw-r--r-- | module/system/vm/inspect.scm | 5 | ||||
-rw-r--r-- | module/system/vm/linker.scm | 2 | ||||
-rw-r--r-- | module/system/vm/program.scm | 1 | ||||
-rw-r--r-- | module/system/vm/trace.scm | 3 | ||||
-rw-r--r-- | module/system/vm/trap-state.scm | 1 | ||||
-rw-r--r-- | module/system/vm/traps.scm | 2 | ||||
-rw-r--r-- | module/system/xref.scm | 1 |
20 files changed, 0 insertions, 44 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm index b63febff8..7ed038d3a 100644 --- a/module/system/base/types.scm +++ b/module/system/base/types.scm @@ -20,7 +20,6 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-9 gnu) - #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) #:use-module (srfi srfi-60) #:use-module (ice-9 match) diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index 0024fd165..74187270a 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -20,7 +20,6 @@ ;;; Code: (define-module (system repl command) - #:use-module (system base syntax) #:use-module (system base pmatch) #:autoload (system base compile) (compile-file) #:use-module (system repl common) @@ -31,14 +30,12 @@ #:use-module (system vm loader) #:use-module (system vm program) #:use-module (system vm trap-state) - #:use-module (system vm vm) #:autoload (system base language) (lookup-language language-reader language-title language-name) #:autoload (system vm trace) (call-with-trace) #:use-module (ice-9 format) #:use-module (ice-9 session) #:use-module (ice-9 documentation) - #:use-module (ice-9 and-let-star) #:use-module (ice-9 rdelim) #:use-module (ice-9 control) #:use-module ((ice-9 pretty-print) #:select ((pretty-print . pp))) diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 8c5426d37..59b5c494a 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -22,8 +22,6 @@ #:use-module (system base syntax) #:use-module (system base compile) #:use-module (system base language) - #:use-module (system base message) - #:use-module (system vm program) #:use-module (system vm loader) #:use-module (ice-9 control) #:use-module (ice-9 copy-tree) diff --git a/module/system/repl/coop-server.scm b/module/system/repl/coop-server.scm index c29bbd645..aaab44f6e 100644 --- a/module/system/repl/coop-server.scm +++ b/module/system/repl/coop-server.scm @@ -21,7 +21,6 @@ (define-module (system repl coop-server) #:use-module (ice-9 match) - #:use-module (ice-9 receive) #:use-module (ice-9 threads) #:use-module (ice-9 q) #:use-module (srfi srfi-9) diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm index 383d37921..c83241340 100644 --- a/module/system/repl/debug.scm +++ b/module/system/repl/debug.scm @@ -19,17 +19,11 @@ ;;; Code: (define-module (system repl debug) - #:use-module (system base pmatch) #:use-module (system base syntax) - #:use-module (system base language) - #:use-module (system vm vm) #:use-module (system vm frame) #:use-module (system vm debug) #:use-module (ice-9 format) #:use-module (ice-9 match) - #:use-module (ice-9 rdelim) - #:use-module (ice-9 pretty-print) - #:use-module ((system vm inspect) #:select ((inspect . %inspect))) #:use-module (system vm program) #:export (<debug> make-debug debug? diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm index 8d5a8a5f0..c12ca6f4a 100644 --- a/module/system/repl/error-handling.scm +++ b/module/system/repl/error-handling.scm @@ -20,7 +20,6 @@ ;;; Code: (define-module (system repl error-handling) - #:use-module (system base pmatch) #:use-module (system vm trap-state) #:use-module (system repl debug) #:use-module (ice-9 format) diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index 5b27125f1..d83d28759 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -21,11 +21,7 @@ ;;; Code: (define-module (system repl repl) - #:use-module (system base syntax) - #:use-module (system base pmatch) - #:use-module (system base compile) #:use-module (system base language) - #:use-module (system vm vm) #:use-module (system repl error-handling) #:use-module (system repl common) #:use-module (system repl command) diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm index 7a04affe9..9a8f51c5b 100644 --- a/module/system/repl/server.scm +++ b/module/system/repl/server.scm @@ -27,7 +27,6 @@ #:use-module (ice-9 iconv) #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) - #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) ; cut #:export (make-tcp-server-socket make-unix-domain-server-socket diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 165976363..33f3018f6 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -51,12 +51,10 @@ #:use-module (system syntax internal) #:use-module (language bytecode) #:use-module (rnrs bytevectors) - #:use-module (rnrs bytevectors gnu) #:use-module (ice-9 binary-ports) #:use-module (ice-9 vlist) #:use-module (ice-9 match) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-4) #:use-module (srfi srfi-9) #:use-module (srfi srfi-11) #:export (make-assembler diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 2c9755ab9..ac1d21639 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -29,9 +29,7 @@ #:use-module (rnrs bytevectors) #:use-module (ice-9 format) #:use-module (ice-9 match) - #:use-module (ice-9 vlist) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-4) #:export (disassemble-program fold-program-code disassemble-image diff --git a/module/system/vm/dwarf.scm b/module/system/vm/dwarf.scm index f3e45c758..587906c9e 100644 --- a/module/system/vm/dwarf.scm +++ b/module/system/vm/dwarf.scm @@ -71,8 +71,6 @@ (define-module (system vm dwarf) #:use-module (rnrs bytevectors) - #:use-module (system foreign) - #:use-module (system base target) #:use-module (system vm elf) #:use-module ((srfi srfi-1) #:select (fold)) #:use-module (srfi srfi-9) diff --git a/module/system/vm/elf.scm b/module/system/vm/elf.scm index 6ee62f129..8cd142bbe 100644 --- a/module/system/vm/elf.scm +++ b/module/system/vm/elf.scm @@ -36,8 +36,6 @@ #:use-module (system foreign) #:use-module (system base target) #:use-module (srfi srfi-9) - #:use-module (ice-9 receive) - #:use-module (ice-9 vlist) #:export (has-elf-header? (make-elf* . make-elf) diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm index 6b14fc62a..9218bf3b2 100644 --- a/module/system/vm/frame.scm +++ b/module/system/vm/frame.scm @@ -19,8 +19,6 @@ ;;; Code: (define-module (system vm frame) - #:use-module (system base pmatch) - #:use-module (system foreign) #:use-module (system vm program) #:use-module (system vm debug) #:use-module (system vm disassembler) diff --git a/module/system/vm/inspect.scm b/module/system/vm/inspect.scm index 1f6d99d19..4825fa234 100644 --- a/module/system/vm/inspect.scm +++ b/module/system/vm/inspect.scm @@ -19,12 +19,7 @@ ;;; Code: (define-module (system vm inspect) - #:use-module (system base pmatch) - #:use-module (system base syntax) - #:use-module (system vm vm) - #:use-module (system vm frame) #:use-module (system vm disassembler) - #:use-module (ice-9 rdelim) #:use-module (ice-9 pretty-print) #:use-module (ice-9 format) #:use-module (system vm program) diff --git a/module/system/vm/linker.scm b/module/system/vm/linker.scm index e126cfb0d..cf213323e 100644 --- a/module/system/vm/linker.scm +++ b/module/system/vm/linker.scm @@ -67,9 +67,7 @@ (define-module (system vm linker) #:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors gnu) - #:use-module (system foreign) #:use-module (system base target) - #:use-module ((srfi srfi-1) #:select (append-map)) #:use-module (srfi srfi-9) #:use-module (ice-9 binary-ports) #:use-module (ice-9 receive) diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm index e5dbcc089..4858d5158 100644 --- a/module/system/vm/program.scm +++ b/module/system/vm/program.scm @@ -21,7 +21,6 @@ (define-module (system vm program) #:use-module (ice-9 match) #:use-module (system vm debug) - #:use-module (rnrs bytevectors) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:export (source:addr source:line source:column source:file diff --git a/module/system/vm/trace.scm b/module/system/vm/trace.scm index 54840d8fd..c1eaffa9c 100644 --- a/module/system/vm/trace.scm +++ b/module/system/vm/trace.scm @@ -19,12 +19,9 @@ ;;; Code: (define-module (system vm trace) - #:use-module (system base syntax) #:use-module (system vm vm) #:use-module (system vm frame) - #:use-module (system vm program) #:use-module (system vm traps) - #:use-module (rnrs bytevectors) #:use-module (ice-9 format) #:export (trace-calls-in-procedure trace-calls-to-procedure diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index 464740bcd..ba4cc6b31 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -26,7 +26,6 @@ #:use-module (system vm vm) #:use-module (system vm traps) #:use-module (system vm trace) - #:use-module (system vm frame) #:use-module (system vm program) #:export (add-trap! list-traps diff --git a/module/system/vm/traps.scm b/module/system/vm/traps.scm index 76be8d7d3..cd0e13cc9 100644 --- a/module/system/vm/traps.scm +++ b/module/system/vm/traps.scm @@ -58,10 +58,8 @@ #:use-module (ice-9 match) #:use-module (system vm vm) #:use-module (system vm debug) - #:use-module (system vm frame) #:use-module (system vm program) #:use-module (system xref) - #:use-module (rnrs bytevectors) #:export (trap-at-procedure-call trap-in-procedure trap-instructions-in-procedure diff --git a/module/system/xref.scm b/module/system/xref.scm index e335f9481..104bf3edf 100644 --- a/module/system/xref.scm +++ b/module/system/xref.scm @@ -17,7 +17,6 @@ (define-module (system xref) - #:use-module (system base compile) #:use-module (system vm program) #:use-module (system vm disassembler) #:use-module (ice-9 match) |