From 4a35e08a91faa5a4e0f8b1070d05f54353682e02 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Nov 1997 22:58:59 +0000 Subject: [PATCH] Fix think-o. --- v7/src/runtime/ntprm.scm | 6 ++++-- v7/src/runtime/os2prm.scm | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm index 6f79a9afd..17c3ba171 100644 --- a/v7/src/runtime/ntprm.scm +++ b/v7/src/runtime/ntprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ntprm.scm,v 1.16 1997/11/12 22:38:03 cph Exp $ +$Id: ntprm.scm,v 1.17 1997/11/12 22:58:59 cph Exp $ Copyright (c) 1992-97 Massachusetts Institute of Technology @@ -314,7 +314,9 @@ MIT in each case. |# ;; Look for USER-NAME in same directory as current ;; user's home directory. (and homedir - (trydir (merge-pathnames user-name homedir))) + (trydir (merge-pathnames + user-name + (directory-pathname-as-file homedir)))) ;; Look for USER-NAME in root directory of system ;; drive. Failing that, use root directory itself. (let ((rootdir (%system-root-directory))) diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm index c529c1f83..ec149688f 100644 --- a/v7/src/runtime/os2prm.scm +++ b/v7/src/runtime/os2prm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: os2prm.scm,v 1.34 1997/11/12 08:39:57 cph Exp $ +$Id: os2prm.scm,v 1.35 1997/11/12 22:58:53 cph Exp $ Copyright (c) 1994-97 Massachusetts Institute of Technology @@ -273,7 +273,9 @@ MIT in each case. |# ;; Look for USER-NAME in same directory as current ;; user's home directory. (and homedir - (trydir (merge-pathnames user-name homedir))) + (trydir (merge-pathnames + user-name + (directory-pathname-as-file homedir)))) ;; Look for USER-NAME in root directory of system ;; drive. Failing that, use root directory itself. (let ((rootdir (%system-root-directory))) -- 2.25.1