blob: a929db5a51b70c288cf2b9acf2635ac5d6f5b62e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
$NetBSD: patch-ai,v 1.3 2001/10/02 11:07:15 seb Exp $
--- scsh/scsh.scm.orig Sat Jun 2 19:43:12 2001
+++ scsh/scsh.scm
@@ -283,7 +283,7 @@
;;; Create a new temporary file and return its name.
;;; The optional argument specifies the filename prefix to use, and defaults
-;;; to "/usr/tmp/<pid>.", where <pid> is the current process' id. The procedure
+;;; to "/var/tmp/<pid>.", where <pid> is the current process' id. The procedure
;;; scans through the files named <prefix>0, <prefix>1, ... until it finds a
;;; filename that doesn't exist in the filesystem. It creates the file with
;;; permission #o600, and returns the filename.
@@ -301,7 +301,7 @@
".~a"))))))
(define *temp-file-template*
- (make-fluid (string-append "/usr/tmp/" (number->string (pid)) ".~a")))
+ (make-fluid (string-append "/var/tmp/" (number->string (pid)) ".~a")))
(define (temp-file-iterate maker . maybe-template)
|
