~ chicken-core (chicken-5) 1169e68f98e16f5a9d728e1a23a85cf015167a31

commit 1169e68f98e16f5a9d728e1a23a85cf015167a31
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Apr 10 11:34:20 2017 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Apr 10 11:34:20 2017 +0200

    csc: fix broken find-object-files (only returns a single file)

diff --git a/csc.scm b/csc.scm
index e8693edc..289ff02e 100644
--- a/csc.scm
+++ b/csc.scm
@@ -287,7 +287,7 @@
 
 ;;; Locate object files for linking:
 
-(define (find-object-files name)
+(define (find-object-file name)
   (or (file-exists? (make-pathname #f name object-extension))
       (and (not ignore-repository)
            (file-exists? (make-pathname (destination-repository (if host-mode
@@ -546,7 +546,8 @@ EOF
 	     (exit) )
 	   (when (pair? linked-extensions)
 	     (set! object-files ; add objects from linked extensions
-	       (append object-files (append-map find-object-files linked-extensions))))
+	       (append object-files
+                (map find-object-file linked-extensions))))
 	   (cond [(null? scheme-files)
 		  (when (and (null? c-files) 
 			     (null? object-files))