06/07: services: Remove imports of (ice-9 …) modules.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a4e7749e91c5ed9b96117e3bcda8802e8744841e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Nov 5 16:09:17 2020 +0100

    services: Remove imports of (ice-9 …) modules.
    
    * gnu/services/monitoring.scm (zabbix-server-activation): Remove (ice-9
    rdelim) from the imported modules.
    (zabbix-agent-activation): Likewise.
    * gnu/tests/mail.scm (run-exim-test)[test]: Remove (ice-9 ftw) from the
    imported modules.
---
 gnu/services/monitoring.scm | 7 +++----
 gnu/tests/mail.scm          | 3 +--
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/gnu/services/monitoring.scm b/gnu/services/monitoring.scm
index 511f4fb..da3d736 100644
--- a/gnu/services/monitoring.scm
+++ b/gnu/services/monitoring.scm
@@ -279,11 +279,11 @@ configuration file."))
 
 (define (zabbix-server-activation config)
   "Return the activation gexp for CONFIG."
-  (with-imported-modules '((guix build utils)
-                           (ice-9 rdelim))
+  (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils)
                      (ice-9 rdelim))
+
         (let ((user (getpw #$(zabbix-server-configuration-user config))))
           (for-each (lambda (file)
                       (let ((directory (dirname file)))
@@ -393,8 +393,7 @@ configuration file."))
 
 (define (zabbix-agent-activation config)
   "Return the activation gexp for CONFIG."
-  (with-imported-modules '((guix build utils)
-                           (ice-9 rdelim))
+  (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils)
                      (ice-9 rdelim))
diff --git a/gnu/tests/mail.scm b/gnu/tests/mail.scm
index a50fb1d..eb8952b 100644
--- a/gnu/tests/mail.scm
+++ b/gnu/tests/mail.scm
@@ -205,8 +205,7 @@ acl_check_data:
      (port-forwardings '((1025 . 25)))))
 
   (define test
-    (with-imported-modules '((gnu build marionette)
-                             (ice-9 ftw))
+    (with-imported-modules '((gnu build marionette))
       #~(begin
           (use-modules (rnrs base)
                        (srfi srfi-64)