runtime/load (standard-library-directory-pathname): Simplify.

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index ac023a18432cf6b4d27bcfa1f17774f77cc8068f..a067496435fe1527537f2078b8b3c34bddd0f3b4 100644 (file)
--- a/src/runtime/load.scm
+++ b/src/runtime/load.scm
@@ -433,10 +433,7 @@ USA.
              (thunk)))))))
 
 (define (standard-library-directory-pathname)
-  (let ((d (system-library-directory-pathname "lib")))
-    (if d
-       (pathname-new-directory d (except-last-pair (pathname-directory d)))
-       (last library-directory-path))))
+  (last library-directory-path))
 
 (define (pathname->standard-uri pathname)
   (let ((uri