From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 27 May 2014 15:55:37 +0000 (-0700)
Subject: Fix for bug #42412: "scheme --load ./file" fails.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b141c4fc326a9a40b0eb5b2bfe91667f50a72fa5;p=mit-scheme.git

Fix for bug #42412: "scheme --load ./file" fails.

Fix pathname->uri to handle the new directory name 'HERE, introduced
in commit 00aab1c.  Thanks to David Kinzer <dtkinzer>.
---

diff --git a/src/runtime/pathnm.scm b/src/runtime/pathnm.scm
index 273254362..766a52819 100644
--- a/src/runtime/pathnm.scm
+++ b/src/runtime/pathnm.scm
@@ -305,6 +305,7 @@ these rules:
 	      (map (lambda (x)
 		     (cond ((eq? x 'WILD) "*")
 			   ((eq? x 'UP) "..")
+			   ((eq? x 'HERE) ".")
 			   (else (string->utf8-string x))))
 		   (append (if (pathname-absolute? pathname)
 			       (list "")