From: Taylor R Campbell 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)))