11/19: docker: Enable arm64 docker image building for 'guix pack'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9f00e7429df88538246652056ef9497cd2a817b5
Author: Collin J. Doering <collin@rekahsoft.ca>
AuthorDate: Fri Nov 19 16:12:03 2021 -0500

    docker: Enable arm64 docker image building for 'guix pack'.
    
    * guix/docker.scm (build-docker-image): Recognize "aarch64".
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/docker.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/guix/docker.scm b/guix/docker.scm
index a6f73d4..5e6460f 100644
--- a/guix/docker.scm
+++ b/guix/docker.scm
@@ -214,10 +214,11 @@ SRFI-19 time-utc object, as the creation time in 
metadata."
                                             (else
                                              (error "unsupported system"
                                                     system)))))))
-                 (cond* ("x86_64" "amd64")
-                        ("i686"   "386")
-                        ("arm"    "arm")
-                        ("mips64" "mips64le")))))
+                 (cond* ("x86_64"  "amd64")
+                        ("i686"    "386")
+                        ("arm"     "arm")
+                        ("aarch64" "arm64")
+                        ("mips64"  "mips64le")))))
     ;; Make sure we start with a fresh, empty working directory.
     (mkdir directory)
     (with-directory-excursion directory