From bf7dea492304fa1a24516c070957d647def5e7a7 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 26 May 1992 05:55:47 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/unxprm.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm index 58372fb6c..c58573229 100644 --- a/v7/src/runtime/unxprm.scm +++ b/v7/src/runtime/unxprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.17 1992/05/26 05:31:03 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.18 1992/05/26 05:55:47 mhwu Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -77,7 +77,7 @@ MIT in each case. |# (let ((dir (->namestring (pathname-as-directory (merge-pathnames (car eligible-directories)))))) - (if (file-writable? dir) + (if (and (file-directory? dir) (file-writable? dir)) (let ((base-name (string-append dir "_" (unix/current-user-name) "_scm"))) (let unique-file ((ext 0)) -- 2.25.1