From 44b1dee4a3f963dae84870fa8ac9b1aaaf9cf91f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 11 Sep 1995 21:25:45 +0000
Subject: [PATCH] Add new condition type ILLEGAL-PATHNAME-COMPONENT so that
 pathname parsing errors can be caught.

---
 v7/src/runtime/dospth.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm
index 3f2163485..0035a976c 100644
--- a/v7/src/runtime/dospth.scm
+++ b/v7/src/runtime/dospth.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dospth.scm,v 1.28 1995/09/11 19:07:10 cph Exp $
+$Id: dospth.scm,v 1.29 1995/09/11 21:25:45 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -83,21 +83,21 @@ MIT in each case. |#
     (lambda (device components)
       (call-with-values (lambda () (parse-name (car (last-pair components))))
 	(lambda (name type)
-	  (%%make-pathname host
-			   device
-			   (let ((components (except-last-pair components)))
-			     (and (not (null? components))
-				  (simplify-directory
-				   (if (string=? "" (car components))
-				       (cons 'ABSOLUTE
-					     (map parse-directory-component
-						  (cdr components)))
-				       (cons 'RELATIVE
-					     (map parse-directory-component
-						  components))))))
-			   name
-			   type
-			   'UNSPECIFIC))))))
+	  (dos/make-pathname host
+			     device
+			     (let ((components (except-last-pair components)))
+			       (and (not (null? components))
+				    (simplify-directory
+				     (if (string=? "" (car components))
+					 (cons 'ABSOLUTE
+					       (map parse-directory-component
+						    (cdr components)))
+					 (cons 'RELATIVE
+					       (map parse-directory-component
+						    components))))))
+			     name
+			     type
+			     'UNSPECIFIC))))))
 
 (define (expand-directory-prefixes components)
   (let ((string (car components)))
-- 
2.25.1