From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 Dec 1999 22:24:58 +0000 (+0000)
Subject: Fix bug: home directory should always be a directory pathname.
X-Git-Tag: 20090517-FFI~4406
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8d8271ca600975bfea5b70b5678f666d9085cfa6;p=mit-scheme.git

Fix bug: home directory should always be a directory pathname.
---

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index be706397d..7cf5e7b4c 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.56 1999/09/11 03:27:41 cph Exp $
+$Id: unxprm.scm,v 1.57 1999/12/16 22:24:58 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -212,11 +212,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (let ((directory ((ucode-primitive get-user-home-directory 1) user-name)))
     (if (not directory)
 	(error "Can't find user's home directory:" user-name))
-    directory))
+    (pathname-as-directory directory)))
 
 (define (current-home-directory)
-  (or (get-environment-variable "HOME")
-      (user-home-directory (current-user-name))))
+  (let ((home (get-environment-variable "HOME")))
+    (if home
+	(pathname-as-directory home)
+	(user-home-directory (current-user-name)))))
 
 (define (current-user-name)
   (or (get-environment-variable "USER")