From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 7 Oct 2013 20:54:45 +0000 (+0000)
Subject: In COMPILE-SYSTEM, load the bin if cross-compiling too.
X-Git-Tag: release-9.2.0~76
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d23cbee56ace128e9df6dc1f19588d53e541cac4;p=mit-scheme.git

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 5763806b1..512de2c6e 100644
--- 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)))