From b99580ff383d49594df5c27f65466b08edd65324 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 14 Sep 1992 21:21:32 +0000 Subject: [PATCH] Use home directory if "work/" doesn't exist. --- v7/src/6001/floppy.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm index ea0f18ae9..52262f8a2 100644 --- a/v7/src/6001/floppy.scm +++ b/v7/src/6001/floppy.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: floppy.scm,v 1.4 1992/09/14 21:18:46 cph Exp $ +$Id: floppy.scm,v 1.5 1992/09/14 21:21:32 cph Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -41,7 +41,11 @@ MIT in each case. |# (define (standard-login-initialization) (set! floppy-contents-loaded? false) (let ((homedir (user-homedir-pathname))) - (let ((workdir (merge-pathnames "work/" homedir))) + (let ((workdir + (let ((workdir (merge-pathnames "work/" homedir))) + (if (file-directory? workdir) + workdir + homedir)))) (set! working-directory (->namestring workdir)) (set-default-directory workdir) (set-working-directory-pathname! workdir)) @@ -660,8 +664,7 @@ M-x rename-file, or use the `r' command in Dired.") (define (file-record/unix-name record) (string-append working-directory (file-record/name record))) -(define working-directory - "~u6001/work/") +(define working-directory) (define (file-record/name=? x y) (string=? (file-record/name x) (file-record/name y))) -- 2.25.1