From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Newsgroups: gmane.comp.gnu.guix.devel,gmane.lisp.guile.devel Subject: [PATCH 3/3] Remove unnecessary module imports. Date: Sun, 12 Feb 2023 00:32:34 +0100 Message-ID: <20230211233234.14425-4-ludo@gnu.org> References: <20230203181126.5ee4003c@tachikoma.lepiller.eu> <20230211233234.14425-1-ludo@gnu.org> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="24474"; mail-complaints-to="usenet@ciao.gmane.io" Cc: guix-devel@gnu.org, =?UTF-8?q?Ludovic=20Court=C3=A8s?= To: guile-devel@gnu.org Original-X-From: guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org Sun Feb 12 00:33:37 2023 Return-path: Envelope-to: gcggd-guix-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1pQzNA-0006Dv-VW for gcggd-guix-devel@m.gmane-mx.org; Sun, 12 Feb 2023 00:33:37 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pQzMh-0006ol-Lv; Sat, 11 Feb 2023 18:33:07 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pQzMg-0006lp-5r; Sat, 11 Feb 2023 18:33:06 -0500 Original-Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pQzMf-0004QT-TM; Sat, 11 Feb 2023 18:33:05 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:References:In-Reply-To:Date:Subject:To: From; bh=2ZDGM40jRNTxdopx3R2/x4nBG0WVoo9brdWfWFRvA+k=; b=cQ8rRXK3ZEuojnun7sQI WrQfbzJLlLUKURL5utbf3+QPOSIMJKQdm02xEvr7iTZ9gc5cut1s78QX8sWTeC2RprQ56eN/oq5Hl EBLgzC33N9xR8WDViQ5i9A+hEnvokIp0/kVnF0Bjxta9YhUOi6ifYSaoaUwsPskJfsGCZzxIWIN8c Ltq3CpXc9XkfAujNVGyoH1laPPLR+RIQjzOGbh3Z655+rxZQcT9k0l/Guwd2tFsS1u5e4vaRYVTkO nVCwMpVDWIHacrvtSBp71OZpCi2q7oRNum5tN/LTb9gbhb97MXBlBAWNQuR+1rmlRg8fdrpyhc4Mw alm+MDYMZnYOpQ==; Original-Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201] helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pQzMf-0001E1-Dp; Sat, 11 Feb 2023 18:33:05 -0500 X-Mailer: git-send-email 2.39.1 In-Reply-To: <20230211233234.14425-1-ludo@gnu.org> X-BeenThere: guix-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org Original-Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.comp.gnu.guix.devel:65353 gmane.lisp.guile.devel:21696 Archived-At: 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. --- module/ice-9/copy-tree.scm | 1 - module/ice-9/eval-string.scm | 1 - module/ice-9/getopt-long.scm | 1 - module/ice-9/poll.scm | 1 - module/ice-9/popen.scm | 1 - module/ice-9/sandbox.scm | 1 - module/ice-9/threads.scm | 1 - module/sxml/apply-templates.scm | 2 -- module/sxml/simple.scm | 1 - module/system/base/types.scm | 1 - module/system/repl/command.scm | 3 --- module/system/repl/common.scm | 2 -- module/system/repl/coop-server.scm | 1 - module/system/repl/debug.scm | 6 ------ module/system/repl/error-handling.scm | 1 - module/system/repl/repl.scm | 4 ---- module/system/repl/server.scm | 1 - module/system/vm/assembler.scm | 2 -- module/system/vm/disassembler.scm | 2 -- module/system/vm/dwarf.scm | 2 -- module/system/vm/elf.scm | 2 -- module/system/vm/frame.scm | 2 -- module/system/vm/inspect.scm | 5 ----- module/system/vm/linker.scm | 2 -- module/system/vm/program.scm | 1 - module/system/vm/trace.scm | 3 --- module/system/vm/trap-state.scm | 1 - module/system/vm/traps.scm | 2 -- module/system/xref.scm | 1 - module/texinfo/indexing.scm | 1 - module/texinfo/plain-text.scm | 3 --- module/texinfo/reflection.scm | 2 -- module/texinfo/string-utils.scm | 2 -- module/web/client.scm | 3 --- module/web/http.scm | 2 -- module/web/request.scm | 1 - module/web/response.scm | 2 -- 37 files changed, 70 deletions(-) diff --git a/module/ice-9/copy-tree.scm b/module/ice-9/copy-tree.scm index e1d91ad9e..004167821 100644 --- a/module/ice-9/copy-tree.scm +++ b/module/ice-9/copy-tree.scm @@ -23,7 +23,6 @@ (define-module (ice-9 copy-tree) - #:use-module (ice-9 match) #:use-module (srfi srfi-11) #:replace (copy-tree)) diff --git a/module/ice-9/eval-string.scm b/module/ice-9/eval-string.scm index 789980938..ea0f17777 100644 --- a/module/ice-9/eval-string.scm +++ b/module/ice-9/eval-string.scm @@ -21,7 +21,6 @@ (define-module (ice-9 eval-string) #:use-module (system base compile) #:use-module (system base language) - #:use-module (system vm program) #:use-module (system vm loader) #:replace (eval-string)) diff --git a/module/ice-9/getopt-long.scm b/module/ice-9/getopt-long.scm index 14eaf8e23..18b235390 100644 --- a/module/ice-9/getopt-long.scm +++ b/module/ice-9/getopt-long.scm @@ -161,7 +161,6 @@ #:use-module (srfi srfi-9) #:use-module (ice-9 match) #:use-module (ice-9 regex) - #:use-module (ice-9 optargs) #:export (getopt-long option-ref)) (define %program-name (make-fluid "guile")) diff --git a/module/ice-9/poll.scm b/module/ice-9/poll.scm index 57b5047ab..2688270ac 100644 --- a/module/ice-9/poll.scm +++ b/module/ice-9/poll.scm @@ -19,7 +19,6 @@ (define-module (ice-9 poll) #:use-module (srfi srfi-9) - #:use-module (srfi srfi-9 gnu) #:use-module (rnrs bytevectors) #:export (make-empty-poll-set poll-set? diff --git a/module/ice-9/popen.scm b/module/ice-9/popen.scm index e638726a4..957cde0aa 100644 --- a/module/ice-9/popen.scm +++ b/module/ice-9/popen.scm @@ -19,7 +19,6 @@ ;;;; (define-module (ice-9 popen) - #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (ice-9 threads) #:use-module (srfi srfi-1) diff --git a/module/ice-9/sandbox.scm b/module/ice-9/sandbox.scm index fcfc57365..601485cce 100644 --- a/module/ice-9/sandbox.scm +++ b/module/ice-9/sandbox.scm @@ -21,7 +21,6 @@ ;;; Code: (define-module (ice-9 sandbox) - #:use-module (ice-9 control) #:use-module (ice-9 match) #:use-module ((ice-9 threads) #:select (current-thread)) #:use-module (system vm vm) diff --git a/module/ice-9/threads.scm b/module/ice-9/threads.scm index c42bd266f..5a13cec1d 100644 --- a/module/ice-9/threads.scm +++ b/module/ice-9/threads.scm @@ -31,7 +31,6 @@ (define-module (ice-9 threads) #:use-module (ice-9 match) - #:use-module (ice-9 control) ;; These bindings are marked as #:replace because when deprecated code ;; is enabled, (ice-9 deprecated) also exports these names. ;; (Referencing one of the deprecated names prints a warning directing diff --git a/module/sxml/apply-templates.scm b/module/sxml/apply-templates.scm index 0ee27477c..dd2742397 100644 --- a/module/sxml/apply-templates.scm +++ b/module/sxml/apply-templates.scm @@ -49,9 +49,7 @@ ;;; Code: (define-module (sxml apply-templates) - #:use-module (sxml ssax) #:use-module ((sxml xpath) :hide (filter)) - #:export (apply-templates)) (define (apply-templates tree templates) diff --git a/module/sxml/simple.scm b/module/sxml/simple.scm index 703ad9137..57fccbc9c 100644 --- a/module/sxml/simple.scm +++ b/module/sxml/simple.scm @@ -30,7 +30,6 @@ #:use-module (sxml ssax) #:use-module (sxml transform) #:use-module (ice-9 match) - #:use-module (srfi srfi-13) #:export (xml->sxml sxml->xml sxml->string)) ;; Helpers from upstream/SSAX.scm. 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 ( 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) diff --git a/module/texinfo/indexing.scm b/module/texinfo/indexing.scm index d7d10cd69..c77013d7d 100644 --- a/module/texinfo/indexing.scm +++ b/module/texinfo/indexing.scm @@ -29,7 +29,6 @@ (define-module (texinfo indexing) #:use-module (sxml simple) - #:use-module (srfi srfi-13) #:export (stexi-extract-index)) (define defines diff --git a/module/texinfo/plain-text.scm b/module/texinfo/plain-text.scm index 5ea99c86b..666df74f5 100644 --- a/module/texinfo/plain-text.scm +++ b/module/texinfo/plain-text.scm @@ -26,11 +26,8 @@ ;;; Code: (define-module (texinfo plain-text) - #:use-module (texinfo) #:use-module (texinfo string-utils) - #:use-module (sxml transform) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-13) #:use-module (ice-9 match) #:export (stexi->plain-text *line-width*)) diff --git a/module/texinfo/reflection.scm b/module/texinfo/reflection.scm index 50cb2ab05..4ff11995c 100644 --- a/module/texinfo/reflection.scm +++ b/module/texinfo/reflection.scm @@ -33,10 +33,8 @@ #:use-module (oop goops) #:use-module (texinfo) #:use-module (texinfo plain-text) - #:use-module (srfi srfi-13) #:use-module (ice-9 session) #:use-module (ice-9 documentation) - #:use-module (ice-9 optargs) #:use-module ((sxml transform) #:select (pre-post-order)) #:export (module-stexi-documentation script-stexi-documentation diff --git a/module/texinfo/string-utils.scm b/module/texinfo/string-utils.scm index 42074d334..0d2c994d7 100644 --- a/module/texinfo/string-utils.scm +++ b/module/texinfo/string-utils.scm @@ -24,8 +24,6 @@ ;;; Code: (define-module (texinfo string-utils) - #:use-module (srfi srfi-13) - #:use-module (srfi srfi-14) #:export (escape-special-chars transform-string expand-tabs diff --git a/module/web/client.scm b/module/web/client.scm index a08c4203c..6c54c5021 100644 --- a/module/web/client.scm +++ b/module/web/client.scm @@ -36,7 +36,6 @@ #:use-module (ice-9 binary-ports) #:use-module (ice-9 copy-tree) #:use-module (ice-9 iconv) - #:use-module (ice-9 rdelim) #:use-module (web request) #:use-module (web response) #:use-module (web uri) @@ -45,8 +44,6 @@ #:use-module (srfi srfi-9) #:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-26) - #:use-module ((rnrs io ports) - #:prefix rnrs-ports:) #:use-module (ice-9 match) #:autoload (ice-9 ftw) (scandir) #:export (current-http-proxy diff --git a/module/web/http.scm b/module/web/http.scm index 29736f2eb..94f9c7ea8 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -30,7 +30,6 @@ ;;; Code: (define-module (web http) - #:use-module ((srfi srfi-1) #:select (append-map! map!)) #:use-module (srfi srfi-9) #:use-module (srfi srfi-19) #:use-module (ice-9 rdelim) @@ -39,7 +38,6 @@ #:use-module (ice-9 binary-ports) #:use-module (ice-9 textual-ports) #:use-module (ice-9 exceptions) - #:use-module (rnrs bytevectors) #:use-module (web uri) #:export (string->header header->string diff --git a/module/web/request.scm b/module/web/request.scm index eea32e9ce..ff4b94485 100644 --- a/module/web/request.scm +++ b/module/web/request.scm @@ -23,7 +23,6 @@ #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (ice-9 textual-ports) - #:use-module (ice-9 rdelim) #:use-module (srfi srfi-9) #:use-module (web uri) #:use-module (web http) diff --git a/module/web/response.scm b/module/web/response.scm index 06e1c6dc1..4ac4d74ca 100644 --- a/module/web/response.scm +++ b/module/web/response.scm @@ -20,10 +20,8 @@ ;;; Code: (define-module (web response) - #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (ice-9 textual-ports) - #:use-module (ice-9 rdelim) #:use-module (ice-9 match) #:use-module (srfi srfi-9) #:use-module (web http) -- 2.39.1