summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-03-08 10:41:34 +0100
committerLudovic Courtès <ludo@gnu.org>2017-03-08 23:42:52 +0100
commit6aa9d63c92bd0c33dd331d2a9d224cfef1b78331 (patch)
treef59782606a649b147bc2ecbb40c38f3b3a9a5ea8
parent6f5d28f9d05aaa9743b3aac6bceb2c6323122d2d (diff)
downloadguix-6aa9d63c92bd0c33dd331d2a9d224cfef1b78331.tar.gz
guix archive: Allow compilation with Guile 2.2.
* guix/scripts/archive.scm (export-from-store): Avoid shadowing the
top-level '_'.
-rw-r--r--guix/scripts/archive.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm
index 9e49c53635..cad279fb50 100644
--- a/guix/scripts/archive.scm
+++ b/guix/scripts/archive.scm
@@ -268,7 +268,7 @@ resulting archive to the standard output port."
               (let ((system (assoc-ref opts 'system)))
                 (format #t "~a\n"
                         (build-docker-image file #:system system))))
-             (_
+             (x
               ;; TODO: Remove this restriction.
               (leave (_ "only a single item can be exported to Docker~%")))))
           (format