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