~ chicken-core (chicken-5) a5c61ec7c82ab4f5706efc690b4f762c26c86583

commit a5c61ec7c82ab4f5706efc690b4f762c26c86583
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Tue Nov 1 10:05:01 2022 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Tue Nov 1 10:05:01 2022 +0100

    Remove spurious argument to filelist
    
    Doesn't yet fix everything...

diff --git a/egg-compile.scm b/egg-compile.scm
index 5c6938a1..4e4e8ccc 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -647,8 +647,7 @@
     (when (pair? link-objects)
       (let ((lobjs (filelist srcdir
                              (map (cut conc <> ".static" (object-extension platform))
-                               link-objects)
-                             platform)))
+                               link-objects))))
 	(print-build-command (list out3)
 			     `(,out2 ,@lobjs)
 			     `(,target-librarian ,target-librarian-options ,out3 ,out2 ,@lobjs))))