From d23cbee56ace128e9df6dc1f19588d53e541cac4 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 7 Oct 2013 20:54:45 +0000 Subject: [PATCH] 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. --- src/cref/butils.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))) -- 2.25.1