From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 9 Jan 2019 03:48:54 +0000 (+0000)
Subject: Simplify pathnames for conversion to standard URIs to avoid dottiness.
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~59
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=40e7f286e02ab8fc39d7f14dbf526eff6f55ab4a;p=mit-scheme.git

Simplify pathnames for conversion to standard URIs to avoid dottiness.
---

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 32d353c69..b4be85cc4 100644
--- a/src/runtime/load.scm
+++ b/src/runtime/load.scm
@@ -427,7 +427,9 @@ USA.
 (define (pathname->standard-uri pathname)
   (let ((uri
 	 (pathname->uri
-	  (enough-pathname pathname (standard-library-directory-pathname)))))
+	  (enough-pathname
+	   (pathname-simplify pathname)
+	   (pathname-simplify (standard-library-directory-pathname))))))
     (if (uri-absolute? uri)
 	uri
 	(system-library-uri uri))))