mescc: Refactor type system: struct/enum fields: (name . <type>).
[mes.git] / guile / mes-0.scm
index 5d71ff139bf5f221536196251b4e7cbc8fb6c564..e67145728a72ff505461af59ff4e682f7569e13e 100644 (file)
 
 (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)