Prioritize .so files over .bin files -- we were loading .bin files

when .so files were available.  (Thanks to Don Allen for catching
this.)

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index 46f27b3be24adec54097719c6807ac6d9a004813..1636972c49bf94890dee93ecceba2ffddf1c8ed5 100644 (file)
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.102 2008/01/30 20:02:32 cph Exp $
+$Id: load.scm,v 14.103 2008/03/08 17:43:12 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -147,8 +147,8 @@ USA.
                  (try-object-file pathname))
              (or (try-fasl-file pathname)
                  (try-fasl-file (pathname-new-type pathname "com"))
-                 (try-fasl-file (pathname-new-type pathname "bin"))
-                 (try-object-file (pathname-new-type pathname "so"))))))
+                 (try-object-file (pathname-new-type pathname "so"))
+                 (try-fasl-file (pathname-new-type pathname "bin"))))))
     (if thunk
        (receive (pathname loader notifier) (thunk)
          (values pathname