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 273254362b1cc9099ca28129fe2b286e7fd7b44b..766a5281920607ccb61f26c7a7c74dce2119ebcd 100644 (file)
--- 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 "")