mescc: Refactor type system: struct/enum fields: (name . <type>).
[mes.git] / guile / mes-0.scm
index 9b9076be6036e44582973b362f61beff6aecc5ed..e67145728a72ff505461af59ff4e682f7569e13e 100644 (file)
@@ -1,7 +1,7 @@
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; mes-0.scm: This file is part of Mes.
 ;;;
 
 (define-macro (mes-use-module . rest) #t)
 (define builtin? procedure?) ; not strictly true, but ok for tests/*.test
-(define mes? (pair? (current-module)))
-(define guile? (not (pair? (current-module))))
-(define guile-1.8? (equal? (effective-version) "1.8"))
-(define guile-2? (and (not mes?) (not guile-1.8?)))
-(if guile-1.8? (use-modules (ice-9 syncase)))
+(cond-expand
+ (mes)
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase))))
 (define EOF (if #f #f))
+(define append2 append)