From fb8cbcfd9bd5039795b54e551a63b8640b2c004c Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 10 Mar 2017 16:52:09 -0700 Subject: [PATCH] runtime/load (standard-library-directory-pathname): Simplify. --- src/runtime/load.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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 -- 2.25.1