chicken-hackers
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]