From 5427af97547c361bb0ad39a433ed377b3c1e63f0 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 17 Oct 2018 09:47:20 +0200
Subject: [PATCH] mes: Resurrect Guile-1.8 support.

* module/mes/mes-0.scm: Resurrect Guile-1.8 support.
---
 module/mes/mes-0.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/mes/mes-0.scm b/module/mes/mes-0.scm
index 2833b2a4..88f0b66f 100644
--- a/module/mes/mes-0.scm
+++ b/module/mes/mes-0.scm
@@ -38,6 +38,11 @@
             %arch
             %compiler
             ))
+(cond-expand
+ (guile-2)
+ (guile
+  (define %host-type (string-append (utsname:machine (uname)) "linux-gnu")))
+ (else))
 
 (define-macro (mes-use-module . rest) #t)
 (define builtin? procedure?) ; not strictly true, but ok for tests/*.test