From 74e517f403984f0782bd27481d56a732f3b92cea Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 29 Nov 1993 21:09:30 +0000 Subject: [PATCH] Change temporary filename so that it has no file type. --- v7/src/runtime/unxprm.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm index 2ab887f1c..87238037f 100644 --- a/v7/src/runtime/unxprm.scm +++ b/v7/src/runtime/unxprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: unxprm.scm,v 1.26 1993/11/09 04:31:41 cph Exp $ +$Id: unxprm.scm,v 1.27 1993/11/29 21:09:30 cph Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -74,15 +74,17 @@ MIT in each case. |# 2)))))) (define (temporary-file-pathname) - (let ((root - (merge-pathnames - (string-append "sch" - (string-pad-left (number->string (unix/current-pid)) - 6 - #\0)) - (temporary-directory-pathname)))) + (let ((root-string + (string-append "sch" + (string-pad-left (number->string (unix/current-pid)) + 6 + #\0) + "_")) + (directory (temporary-directory-pathname))) (let loop ((ext 0)) - (let ((pathname (pathname-new-type root (number->string ext)))) + (let ((pathname + (merge-pathnames (string-append root-string (number->string ext)) + directory))) (if (allocate-temporary-file pathname) pathname (begin -- 2.25.1