~ chicken-core (chicken-5) 24b9c7ba3d02ff5a86277f9010af1b7903754e2d


commit 24b9c7ba3d02ff5a86277f9010af1b7903754e2d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Oct 20 21:41:32 2017 +0200
Commit:     Kooda <kooda@upyum.com>
CommitDate: Sun Oct 22 12:12:05 2017 +0200

    chicken-install: use proper (module) name instead of source name when compiling import library
    
    Signed-off-by: Kooda <kooda@upyum.com>

diff --git a/egg-compile.scm b/egg-compile.scm
index b10f764c..ac748188 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -489,19 +489,18 @@
            (arglist link-options) " " src " -o " out " : "
            src #;(arglist dependencies))))
 
-(define ((compile-import-library name #!key dependencies source mode
+(define ((compile-import-library name #!key dependencies mode
                                  (options '()) (link-options '())
                                  custom)
          srcdir platform)
   (let* ((cmd (or (and custom (prefix-custom-command custom))
                   default-csc))
          (sname (prefix srcdir name))
-         (ssname (and source (prefix srcdir source)))
          (opts (if (null? options) 
                    default-import-library-compilation-options
                    options))
          (out (quotearg (target-file (conc sname ".import.so") mode)))
-         (src (quotearg (or source (conc sname ".import.scm")))))
+         (src (quotearg (conc sname ".import.scm"))))
     (print "\n" (slashify default-builder platform) " " out " " cmd 
            (if keep-generated-files " -k" "")
            " -setup-mode -s"
Trap