From: Robin Templeton <robin@terpri.org>
Date: Wed, 18 Jun 2014 02:41:45 +0000 (-0400)
Subject: prefer compilers earlier in list
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/2fbe7db72946cc818453d3d0c1268abe3ad8118e

prefer compilers earlier in list
---

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))))))