From 974999a20c36aabb54b26ba9ce7f3b41be994869 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Apr 1999 04:40:14 +0000
Subject: [PATCH] Fix bug that occurred when the HOME environment variable
 wasn't set.

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

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index d4c7177bb..bd1c26c55 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.31 1999/04/07 04:09:03 cph Exp $
+$Id: ntprm.scm,v 1.32 1999/04/24 04:40:14 cph Exp $
 
 Copyright (c) 1992-1999 Massachusetts Institute of Technology
 
@@ -340,7 +340,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (let ((trydir
 	 (lambda (directory)
 	   (and directory
-		(file-directory? directory)))))
+		(file-directory? directory)
+		directory))))
     (let ((sysroot
 	   (or (trydir (get-environment-variable "SystemRoot"))
 	       (trydir (get-environment-variable "windir"))
-- 
2.25.1