mes: Resurrect Guile-1.8 support.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 17 Oct 2018 07:47:20 +0000 (09:47 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 17 Oct 2018 07:47:20 +0000 (09:47 +0200)
* module/mes/mes-0.scm: Resurrect Guile-1.8 support.

module/mes/mes-0.scm

index 2833b2a4c36c83bce7bb3ed45234e9180bac3921..88f0b66f0ca7ab865aedf62ea44bf0a930af7450 100644 (file)
             %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