In COMPILE-SYSTEM, load the bin if cross-compiling too.

XXX COMPILE-SYSTEM is completely wrong; it needs to be eliminated in
favour of a principled way to identify macro dependencies, like in
Scheme48 and Racket.

diff --git a/src/cref/butils.scm b/src/cref/butils.scm
index 5763806b1b8f773d0f030947deb0e7fb9f71c7bf..512de2c6e82759735f997a1946070ba2bd91b862 100644 (file)
--- a/src/cref/butils.scm
+++ b/src/cref/butils.scm
@@ -120,7 +120,10 @@ USA.
          (lambda (file)
            (let ((env (file-environment file))
                  (deps (file-dependencies file))
-                 (type (if compile-file:sf-only? "bin" #f)))
+                 (type
+                  (if (or compile-file:sf-only? compiler:cross-compiling?)
+                      "bin"
+                      #f)))
              (compile-file file deps env)
              (load (pathname-new-type file type) env)))
          (append-map package/files (pmodel/packages pmodel)))