prefer compilers earlier in list

[bpt/guile.git] / module / system / base / compile.scm

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index b932e64..e92155e 100644 (file)
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -133,7 +133,7 @@
 (define* (compile-file file #:key
                        (output-file #f)
                        (from (current-language))
-                       (to 'rtl)
+                       (to 'bytecode)
                        (env (default-environment from))
                        (opts '())
                        (canonicalization 'relative))
@@ -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))))))
 
@@ -207,7 +207,7 @@
 
 (define* (read-and-compile port #:key
                            (from (current-language))
-                           (to 'rtl)
+                           (to 'bytecode)
                            (env (default-environment from))
                            (opts '()))
   (let ((from (ensure-language from))
@@ -271,8 +271,8 @@
 
 (define* (decompile x #:key
                     (env #f)
-                    (from 'value)
-                    (to 'assembly)
+                    (from 'tree-il)
+                    (to 'scheme)
                     (opts '()))
   (decompile-fold (decompile-passes from to opts)
                   x