From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Nov 1993 21:09:30 +0000 (+0000)
Subject: Change temporary filename so that it has no file type.
X-Git-Tag: 20090517-FFI~7415
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74e517f403984f0782bd27481d56a732f3b92cea;p=mit-scheme.git

Change temporary filename so that it has no file type.
---

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