diff options
| author | Robin Templeton <robin@terpri.org> | 2014-06-17 22:41:45 -0400 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-04 16:19:53 +0200 |
| commit | 00de1bb8a4809c44987125ca8a210839b29e71c6 (patch) | |
| tree | 444c4024a0ff6f3bcc591762e362e86f0dae32b9 | |
| parent | b7567177ef6cb21d81a99ef57eca2da7d7a773a8 (diff) | |
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.
| -rw-r--r-- | 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 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)))))) |