andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Oops, %moduledir debug info. 

* mes/module/mes/boot-0.scm.in: Oops, %moduledir debug info.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-11 14:47:14 +01:00
parent 17aeba8dc7
commit e27e7af055
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mes/module/mes/boot-0.scm.in
View File

@ -183,9 +183,9 @@
"@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)