From db068d4b59847e7b9e4da30f656aed7bb5d9d981 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 13 Sep 2017 01:01:29 -0700 Subject: [PATCH] devops (host-scheme-architecture): Fix. --- src/devops/devops.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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))) -- 2.25.1