From 6aa9d63c92bd0c33dd331d2a9d224cfef1b78331 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 8 Mar 2017 10:41:34 +0100
Subject: [PATCH] guix archive: Allow compilation with Guile 2.2.

* guix/scripts/archive.scm (export-from-store): Avoid shadowing the
top-level '_'.
---
 guix/scripts/archive.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 @@ (define (export-from-store store opts)
               (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