From 486425832e62c5daf62b170c7d85b10e7c71c18b Mon Sep 17 00:00:00 2001 From: LemonBoy Date: Tue, 16 May 2017 16:29:01 +0200 Subject: [PATCH] Correct a typo install-inline-file ends up installing the inline file in place of the types one. Remove the executable bit when installing files that have no reason to have it. --- egg-compile.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/egg-compile.scm b/egg-compile.scm index 0567c986..4d7332c0 100644 --- a/egg-compile.scm +++ b/egg-compile.scm @@ -555,7 +555,7 @@ (define ((install-import-library-source name #!key mode output-file) srcdir platform) - (let* ((cmd (install-executable-command platform)) + (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (sname (prefix srcdir name)) (out (quotearg (target-file (conc sname ".import.scm") mode))) @@ -569,7 +569,7 @@ (define ((install-types-file name #!key mode types-file) srcdir platform) - (let* ((cmd (install-executable-command platform)) + (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (sname (prefix srcdir name)) (out (quotearg (conc types-file ".types"))) @@ -583,7 +583,7 @@ (define ((install-inline-file name #!key mode inline-file) srcdir platform) - (let* ((cmd (install-executable-command platform)) + (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (sname (prefix srcdir name)) (out (quotearg (conc inline-file ".inline"))) @@ -592,7 +592,7 @@ (ddir (shell-variable "DESTDIR" platform))) (print "\n" mkdir " " ddir dfile) (print cmd " " out " " ddir - (quotearg (slashify (conc dest "/" inline-file ".types") + (quotearg (slashify (conc dest "/" inline-file ".inline") platform))))) (define ((install-program name #!key mode output-file) srcdir platform) -- 2.13.0