[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 07/36: prefer compilers earlier in list

From: Christopher Allan Webber
Subject: [Guile-commits] 07/36: prefer compilers earlier in list
Date: Fri, 25 Mar 2016 20:02:53 +0000

cwebber pushed a commit to branch wip-elisp
in repository guile.

commit e97833382e618e359c0d5bb4f63d03f4d9b52224
Author: Robin Templeton <address@hidden>
Date:   Tue Jun 17 22:41:45 2014 -0400

    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 
 module/system/base/compile.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index d6a53d6..e92155e 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)
            (lp (cdr in) (caar in))))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]