~ chicken-core (chicken-5) 8ebf1e7f32f645df3444eb5e22d2d4306645d7d4

commit 8ebf1e7f32f645df3444eb5e22d2d4306645d7d4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 28 16:51:24 2018 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Aug 31 06:51:16 2018 +1200

    chicken-install: do not invoke custom build script for import libraries
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/egg-compile.scm b/egg-compile.scm
index e6a3dbaa..e523f590 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -546,26 +546,21 @@
 
 (define ((compile-import-library name #!key mode
                                  source-dependencies
-                                 (options '()) (link-options '())
-                                 custom)
+                                 (options '()) (link-options '()))
          srcdir platform)
-  (let* ((cmd (or (custom-cmd custom srcdir platform)
-                  default-csc))
+  (let* ((cmd default-csc)
          (sname (prefix srcdir name))
          (opts (if (null? options) 
                    default-import-library-compilation-options
                    options))
          (out (quotearg (target-file (conc sname ".import.so") mode)))
          (src (quotearg (conc sname ".import.scm"))))
-    (when custom
-      (prepare-custom-command cmd platform))
     (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 " : "
-           (if custom (quotearg cmd) "") " "
            src (filelist srcdir source-dependencies))
     (print-end-command platform)))