~ chicken-core (chicken-5) 7a53761e9936c3dde484ca673a7e5f3fba5a4b0f

commit 7a53761e9936c3dde484ca673a7e5f3fba5a4b0f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Apr 6 17:38:40 2017 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Apr 6 17:38:40 2017 +0200

    pass -host when generating host build script in cross-chicken

diff --git a/egg-compile.scm b/egg-compile.scm
index b93e394f..811aac3b 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -387,6 +387,7 @@
     (print "\n" (slashify default-builder platform) " " out " " cmd 
            (if keep-generated-files " -k" "")
            " -setup-mode -static -I " srcdir 
+           (if (eq? mode 'host) " -host" "")
            " -D compiling-extension -c -J -unit " name
            " -D compiling-static-extension"
            " -C -I" srcdir (arglist opts) 
@@ -408,6 +409,7 @@
          (src (quotearg (or ssname (conc sname ".scm")))))
     (print "\n" (slashify default-builder platform) " " out " " cmd 
            (if keep-generated-files " -k" "")
+           (if (eq? mode 'host) " -host" "")
            " -D compiling-extension -J -s"
            " -setup-mode -I " srcdir " -C -I" srcdir (arglist opts)
            (arglist link-options) " " src " -o " out " : "
@@ -429,6 +431,7 @@
     (print "\n" (slashify default-builder platform) " " out " " cmd 
            (if keep-generated-files " -k" "")
            " -setup-mode -s"
+           (if (eq? mode 'host) " -host" "")
            " -I " srcdir " -C -I" srcdir (arglist opts)
            (arglist link-options) " " src " -o " out " : "
            src #;(arglist dependencies))))
@@ -451,6 +454,7 @@
     (print "\n" (slashify default-builder platform) " " out " " cmd 
            (if keep-generated-files " -k" "")
            " -setup-mode"
+           (if (eq? mode 'host) " -host" "")
            " -I " srcdir " -C -I" srcdir (arglist opts)
            (arglist link-options) " " src " -o " out " : "
            src #;(arglist dependencies))))
@@ -472,6 +476,7 @@
          (src (quotearg (or ssname (conc sname ".scm")))))
     (print "\n" (slashify default-builder platform) " " out " " cmd 
            (if keep-generated-files " -k" "")
+           (if (eq? mode 'host) " -host" "")
            " -static -setup-mode -I " srcdir " -C -I" 
            srcdir (arglist opts)
            (arglist link-options) " " src " -o " out " : "