From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 14 Sep 2003 01:01:45 +0000 (+0000)
Subject: Strip double-quote characters from path elements.
X-Git-Tag: 20090517-FFI~1812
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d73b592ba90a0fafc54f60c6be23d8b76add5a5f;p=mit-scheme.git

Strip double-quote characters from path elements.
---

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index 7fdf2f88e..d93ae065b 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.41 2003/09/14 00:20:42 cph Exp $
+$Id: ntprm.scm,v 1.42 2003/09/14 01:01:45 cph Exp $
 
 Copyright 1995,1996,1998,1999,2000,2001 Massachusetts Institute of Technology
 Copyright 2003 Massachusetts Institute of Technology
@@ -657,16 +657,17 @@ USA.
 (define (os/parse-path-string string)
   (let ((end (string-length string))
 	(substring
-	 (lambda (string start end)
-	   (pathname-as-directory (substring string start end)))))
+	 (let ((cs (char-set #\")))
+	   (lambda (string start end)
+	     (pathname-as-directory (string-trim (substring string start end)
+						 cs))))))
     (let loop ((start 0))
       (if (< start end)
 	  (let ((index (substring-find-next-char string start end #\;)))
 	    (if index
 		(if (= index start)
 		    (loop (+ index 1))
-		    (cons (string-trim (substring string start index)
-				       (char-set #\"))
+		    (cons (substring string start index)
 			  (loop (+ index 1))))
 		(list (substring string start end))))
 	  '()))))