From 2fbe7db72946cc818453d3d0c1268abe3ad8118e Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Tue, 17 Jun 2014 22:41:45 -0400 Subject: [PATCH] prefer compilers earlier in list --- module/system/base/compile.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm index d6a53d6b3..e92155ef8 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -185,8 +185,8 @@ (let lp ((in (reverse (or (lookup-compilation-order from to) (error "no way to compile" from "to" to)))) (lang to)) - (cond ((null? in) to) - ((language-joiner lang) lang) + (cond ((language-joiner lang) lang) + ((null? in) to) (else (lp (cdr in) (caar in)))))) -- 2.20.1