X-Git-Url: https://jxself.org/git/?p=mes.git;a=blobdiff_plain;f=scripts%2Fmescc.mes;h=542621e003eccdf4b8d7d1ca4e3093964adfa79f;hp=16df53390b96c731d484dd5db6ba6eca4a3c6c8a;hb=4b1de28449a8c28ffa72639fda001714f7f0c1be;hpb=62e7809725146c8b647958bf751efef4041f7288 diff --git a/scripts/mescc.mes b/scripts/mescc.mes index 16df5339..542621e0 100755 --- a/scripts/mescc.mes +++ b/scripts/mescc.mes @@ -49,11 +49,7 @@ exit $r (format (current-error-port) "mescc.mes...\n") -(define %datadir (if (string-prefix? "@DATADIR" "@DATADIR@") "" "@DATADIR@")) -(define %docdir (if (string-prefix? "@DOCDIR" "@DOCDIR@") "doc/" "@DOCDIR@")) -(define %moduledir "module/") -(define %prefix (if (string-prefix? "@PREFIX" "@PREFIX@") "" "@PREFIX@")) -(define %version (if (string-prefix? "@VERSION" "@VERSION@") "git" "@VERSION@")) +(define %prefix (if (string-prefix? "@PREFIX" "@PREFIX@") (or (getenv "PREFIX") "") "@PREFIX@")) (define (parse-opts args) (let* ((option-spec