~ chicken-core (master) 178a183ab205e66cbe50ebc026371a89e7888dd1

commit 178a183ab205e66cbe50ebc026371a89e7888dd1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 25 09:49:14 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 25 09:49:14 2026 +0200

    when installing, actually make a difference between c-object and installed-c-object

diff --git a/egg-compile.scm b/egg-compile.scm
index 0b321a9a..ed41096b 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -304,6 +304,7 @@
                             options: opts
                             linkage: link custom: cbuild
                             mode: mode
+                            install: install
                             eggfile: eggfile
                             source-dependencies: sdeps
                             output-file: rtarget)
@@ -1044,19 +1045,20 @@
     (print cmd " " out " " ddir destf)
     (print-end-command platform)))
 
-(define ((install-object name #!key mode output-file) srcdir platform)
-  (let* ((cmd (install-file-command platform))
-         (mkdir (mkdir-command platform))
-         (ext (object-extension platform))
-         (sname (prefix srcdir name))
-         (out (qs* (target-file (conc sname ext) mode)))
-         (dest (effective-destination-repository mode))
-         (dfile (qs* dest))
-         (ddir (shell-variable "DESTDIR")))
-    (print "\n" mkdir " " ddir dfile)
-    (print cmd " " out " " ddir
-           (qs* (conc dest "/" output-file ext)))
-    (print-end-command platform)))
+(define ((install-object name #!key mode output-file install) srcdir platform)
+  (when install
+    (let* ((cmd (install-file-command platform))
+           (mkdir (mkdir-command platform))
+           (ext (object-extension platform))
+           (sname (prefix srcdir name))
+           (out (qs* (target-file (conc sname ext) mode)))
+           (dest (effective-destination-repository mode))
+           (dfile (qs* dest))
+           (ddir (shell-variable "DESTDIR")))
+      (print "\n" mkdir " " ddir dfile)
+      (print cmd " " out " " ddir
+             (qs* (conc dest "/" output-file ext)))
+      (print-end-command platform))))
 
 (define (install-random-files dest files mode srcdir platform)
   (let* ((fcmd (install-file-command platform))