[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH 1/1] Correct a typo causing inline files to be
From: |
Evan Hanson |
Subject: |
[Chicken-hackers] [PATCH 1/1] Correct a typo causing inline files to be installed incorrectly |
Date: |
Wed, 17 May 2017 15:44:08 +1200 |
From: LemonBoy <address@hidden>
Previously, "install-inline-file" installed the inline file in place of
the types one, rather than to the correct path.
Also remove the executable bit when installing files that have no reason
to have it.
Signed-off-by: Evan Hanson <address@hidden>
---
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.11.0