From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 27 May 2014 16:41:16 +0000 (-0700)
Subject: Fix uri->pathname too, just for completeness.
X-Git-Tag: mit-scheme-pucked-9.2.12~405^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29636b5868d00b658490829eb22ae5435547e29e;p=mit-scheme.git

Fix uri->pathname too, just for completeness.

(uri->pathname (pathname->uri "./file")) does not signal an error, but
it does not produce the same directory component as (->pathname
"./file").  Now (pathname=? (->pathname "./file") (uri->pathname...))
is #t, at least on Unix(?).
---

diff --git a/src/runtime/pathnm.scm b/src/runtime/pathnm.scm
index 766a52819..01c4fe7e6 100644
--- a/src/runtime/pathnm.scm
+++ b/src/runtime/pathnm.scm
@@ -348,6 +348,7 @@ these rules:
 	   (map (lambda (x)
 		  (cond ((string=? x "*") 'WILD)
 			((string=? x "..") 'UP)
+			((string=? x ".") 'HERE)
 			(else (utf8-string->string x))))
 		(uri-path uri)))
 	  (lose