Remove "guile-zlib" extension when unused.

[jackhill/guix/guix.git] / gnu / machine / ssh.scm

diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index ee5032e..4e31baa 100644 (file)
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -21,7 +21,6 @@
   #:use-module (gnu bootloader)
   #:use-module (gnu machine)
   #:autoload   (gnu packages gnupg) (guile-gcrypt)
-  #:autoload   (gnu packages guile) (guile-zlib)
   #:use-module (gnu system)
   #:use-module (gnu system file-systems)
   #:use-module (gnu system uuid)
@@ -249,24 +248,22 @@ not available in the initrd."
                                 '((gnu build file-systems)
                                   (gnu build linux-modules)
                                   (gnu system uuid)))
-          (with-extensions (list guile-zlib)
-            #~(begin
-                (use-modules (gnu build file-systems)
-                             (gnu build linux-modules)
-                             (gnu system uuid))
-
-                (define dev
-                  #$(cond ((string? device) device)
-                          ((uuid? device) #~(find-partition-by-uuid
-                                             (string->uuid
-                                              #$(uuid->string device))))
-                          ((file-system-label? device)
-                           #~(find-partition-by-label
-                              #$(file-system-label->string device)))))
-
-                (missing-modules dev
-                                 '#$(operating-system-initrd-modules
-                                     (machine-operating-system machine))))))))
+          #~(begin
+              (use-modules (gnu build file-systems)
+                           (gnu build linux-modules)
+                           (gnu system uuid))
+
+              (define dev
+                #$(cond ((string? device) device)
+                        ((uuid? device) #~(find-partition-by-uuid
+                                           (string->uuid
+                                            #$(uuid->string device))))
+                        ((file-system-label? device)
+                         #~(find-partition-by-label
+                            #$(file-system-label->string device)))))
+
+              (missing-modules dev '#$(operating-system-initrd-modules
+                                       (machine-operating-system machine)))))))
 
     (remote-let ((missing remote-exp))
       (unless (null? missing)