~ chicken-core (master) 88c364fb7623788b1ef3608cf005d1fd9a09ce58

commit 88c364fb7623788b1ef3608cf005d1fd9a09ce58
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 4 23:18:37 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 4 23:18:37 2025 +0200

    unused arguments in calls to qs*

diff --git a/egg-compile.scm b/egg-compile.scm
index 5b0ec042..152b0875 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -1066,7 +1066,7 @@
            (when fdir
              (print mkdir " " ddir
                     (qs* (make-pathname dest fdir))))
-           (print dcmd " " (qs* d platform #t)
+           (print dcmd " " (qs* d)
                   " " ddir
                   (if fdir
                       (qs* (make-pathname dest fdir))
@@ -1081,7 +1081,7 @@
               (when fdir
                 (print mkdir " " ddir
                        (qs* (make-pathname dest fdir))))
-              (print fcmd " " (qs* f platform)
+              (print fcmd " " (qs* f)
                      " " ddir
                      (if fdir
                          (qs* (make-pathname dest fdir))