From 00de1bb8a4809c44987125ca8a210839b29e71c6 Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Tue, 17 Jun 2014 22:41:45 -0400 Subject: prefer compilers earlier in list (Best-ability ChangeLog annotation added by Christopher Allan Webber.) * module/system/base/compile.scm (find-language-joint): Change order of cond. --- 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 c110512f0..9bdde4491 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -187,8 +187,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)))))) -- cgit v1.2.3