From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 10 Mar 2017 23:52:09 +0000 (-0700)
Subject: runtime/load (standard-library-directory-pathname): Simplify.
X-Git-Tag: mit-scheme-pucked-9.2.12~188
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb8cbcfd9bd5039795b54e551a63b8640b2c004c;p=mit-scheme.git

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

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index ac023a184..a06749643 100644
--- 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