From 345cf4d38e96691692974eede5c547bb9dc97636 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Oct 2006 04:16:48 +0000
Subject: [PATCH] Tweak logic of MAKE-PATHNAME to simplify it.

---
 v7/src/runtime/unxpth.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/v7/src/runtime/unxpth.scm b/v7/src/runtime/unxpth.scm
index cccfa4381..10302c348 100644
--- a/v7/src/runtime/unxpth.scm
+++ b/v7/src/runtime/unxpth.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: unxpth.scm,v 14.29 2004/02/16 05:39:37 cph Exp $
+$Id: unxpth.scm,v 14.30 2006/10/02 04:16:48 cph Exp $
 
 Copyright 1987,1988,1989,1991,1994,1995 Massachusetts Institute of Technology
-Copyright 1996,1997,2001,2004 Massachusetts Institute of Technology
+Copyright 1996,1997,2001,2004,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -206,10 +206,9 @@ USA.
        (error:illegal-pathname-component device "device"))
    (cond ((not directory)
 	  directory)
-	 ((and (list? directory)
-	       (not (null? directory))
+	 ((and (pair? directory)
 	       (memq (car directory) '(RELATIVE ABSOLUTE))
-	       (for-all? (cdr directory)
+	       (list-of-type? (cdr directory)
 		 (lambda (element)
 		   (if (string? element)
 		       (not (string-null? element))
-- 
2.25.1