From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Apr 1999 04:40:14 +0000 (+0000)
Subject: Fix bug that occurred when the HOME environment variable wasn't set.
X-Git-Tag: 20090517-FFI~4563
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=974999a20c36aabb54b26ba9ce7f3b41be994869;p=mit-scheme.git

Fix bug that occurred when the HOME environment variable wasn't set.
---

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"))