Try builtin objects before fasl files in liarc FASLOAD.

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 61e041d1b8a7c2a458a0528cae456c9785af13da..23296fa9ac1c69970934e36e302e9eb2c9222339 100644 (file)
--- a/src/runtime/load.scm
+++ b/src/runtime/load.scm
@@ -142,8 +142,8 @@ USA.
   (let* ((pathname (merge-pathnames pathname))
         (thunk
          (if (pathname-type pathname)
-             (or (try-fasl-file pathname)
-                 (try-object-file pathname))
+             (or (try-object-file pathname)
+                 (try-fasl-file pathname))
              (or (try-fasl-file pathname)
                  (try-fasl-file (pathname-new-type pathname "com"))
                  (try-object-file (pathname-new-type pathname "so"))