From 4afea8f4f5478f30d10fa20bb6f396bbc7e9134b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 14 Sep 2003 01:52:35 +0000
Subject: [PATCH] Strip double-quote characters from path elements.

---
 v7/src/runtime/ntprm.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index d93ae065b..86265e3bc 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.42 2003/09/14 01:01:45 cph Exp $
+$Id: ntprm.scm,v 1.43 2003/09/14 01:52:35 cph Exp $
 
 Copyright 1995,1996,1998,1999,2000,2001 Massachusetts Institute of Technology
 Copyright 2003 Massachusetts Institute of Technology
@@ -657,7 +657,7 @@ USA.
 (define (os/parse-path-string string)
   (let ((end (string-length string))
 	(substring
-	 (let ((cs (char-set #\")))
+	 (let ((cs (char-set-invert (char-set #\"))))
 	   (lambda (string start end)
 	     (pathname-as-directory (string-trim (substring string start end)
 						 cs))))))
-- 
2.25.1