mes: Oops, %moduledir debug info.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 13:47:14 +0000 (14:47 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 13:47:14 +0000 (14:47 +0100)
* mes/module/mes/boot-0.scm.in: Oops, %moduledir debug info.

mes/module/mes/boot-0.scm.in

index b497b0e17d5eaa022dd5a520c865d95fcce2b84f..9351c3b36da6bb4e7d02ac8d8ac0e9e738d38e71 100644 (file)
                      "@VERSION@"))
 (define (effective-version) %version)
 
-(if (list 'and (list getenv "MES_DEBUG")
-          (list not (list equal2? (list getenv "MES_DEBUG") "0"))
-          (list not (list equal2? (list getenv "MES_DEBUG") "1")))
+(if (and (getenv "MES_DEBUG")
+          (not (equal2? (getenv "MES_DEBUG") "0"))
+          (not (equal2? (getenv "MES_DEBUG") "1")))
     (begin
       (core:display-error ";;; %moduledir=")
       (core:display-error %moduledir)