From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 14 Aug 1992 03:50:58 +0000 (+0000)
Subject: Fix yet another directory parser bug.
X-Git-Tag: 20090517-FFI~9124
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=939e9d25a9a107a342b7a7f2894e8a9b100f27bb;p=mit-scheme.git

Fix yet another directory parser bug.
---

diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm
index 0f79fcfef..fecfc1414 100644
--- a/v7/src/runtime/dospth.scm
+++ b/v7/src/runtime/dospth.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dospth.scm,v 1.12 1992/08/13 19:13:09 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dospth.scm,v 1.13 1992/08/14 03:50:58 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -129,11 +129,16 @@ MIT in each case. |#
       (let ((len (string-length component)))
 	(cond ((substring-find-previous-char component 0 len #\.)
 	       ;; Handle screwy directories with dots in their names.
-	       (parse-name component
-			   (lambda (before after)
-			     (string-append (->field before)
-					    "."
-					    (->field after)))))
+	       =>
+	       (lambda (posn)
+		 (parse-name component
+			     (lambda (before after)
+			       (let ((before (->field before)))
+				 (if (string=? before component)
+				     component
+				     (string-append before
+						    "."
+						    (->field after))))))))
 	      ((> len 8)
 	       (substring component 0 8))
 	      (else