HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
da2065e
)
prefer compilers earlier in list
author
Robin Templeton
<robin@terpri.org>
Wed, 18 Jun 2014 02:41:45 +0000
(22:41 -0400)
committer
Robin Templeton
<robin@terpri.org>
Tue, 21 Apr 2015 23:36:29 +0000
(19:36 -0400)
module/system/base/compile.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/system/base/compile.scm
b/module/system/base/compile.scm
index
d6a53d6
..
e92155e
100644
(file)
--- 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))))))