mes: Resurrect Guile-1.8 support.

* module/mes/mes-0.scm: Resurrect Guile-1.8 support.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-17 09:47:20 +02:00
parent a99f9c6df9
commit a8ae42ff3c
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -38,6 +38,11 @@
%arch %arch
%compiler %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-macro (mes-use-module . rest) #t)
(define builtin? procedure?) ; not strictly true, but ok for tests/*.test (define builtin? procedure?) ; not strictly true, but ok for tests/*.test