From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 23 Feb 2014 16:40:46 +0000 (+0000)
Subject: Try builtin objects before fasl files in liarc FASLOAD.
X-Git-Tag: release-9.2.0~38
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fc8192d88eef75eb169881686f1f2c06da01e633;p=mit-scheme.git

Try builtin objects before fasl files in liarc FASLOAD.
---

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 61e041d1b..23296fa9a 100644
--- 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"))