From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 13 Sep 2017 08:01:29 +0000 (-0700)
Subject: devops (host-scheme-architecture): Fix.
X-Git-Tag: mit-scheme-pucked-9.2.12~64
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=db068d4b59847e7b9e4da30f656aed7bb5d9d981;p=mit-scheme.git

devops (host-scheme-architecture): Fix.
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 205638e80..42c452088 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -686,10 +686,11 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (host-ubuntu? host)
   (os-ubuntu? (host-os host)))
 
-(define (host-scheme-architecture darch)
-  (cond ((string=? "amd64" darch) "x86-64")
-	((string=? "i386"  darch) "i386")
-	(else (error "unknown Debian architecture:" darch))))
+(define (host-scheme-architecture host)
+  (let ((darch (host-debian-architecture host)))
+    (cond ((string=? "amd64" darch) "x86-64")
+	  ((string=? "i386"  darch) "i386")
+	  (else (error "unknown Debian architecture:" darch)))))
 
 (define (host-ubuntu-codename host)
   (ubuntu-os-codename (host-os host)))