From fc8192d88eef75eb169881686f1f2c06da01e633 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 23 Feb 2014 16:40:46 +0000 Subject: [PATCH] Try builtin objects before fasl files in liarc FASLOAD. --- src/runtime/load.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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")) -- 2.25.1