build: Install and installed-run fixes.

[mes.git] / scripts / mescc.mes

diff --git a/scripts/mescc.mes b/scripts/mescc.mes
index 16df53390b96c731d484dd5db6ba6eca4a3c6c8a..542621e003eccdf4b8d7d1ca4e3093964adfa79f 100755 (executable)
--- a/scripts/mescc.mes
+++ b/scripts/mescc.mes
@@ -49,11 +49,7 @@ exit $r
 
 (format (current-error-port) "mescc.mes...\n")
 
 
 (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
 
 (define (parse-opts args)
   (let* ((option-spec