blob: c3a642ea6b94df560f0b9e9605d5802138a71cc7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
$NetBSD: patch-ae,v 1.2 1998/08/07 11:13:56 agc Exp $
*** scsh/scsh.scm.original Tue Nov 26 17:15:00 1996
--- scsh/scsh.scm Tue Nov 26 17:15:06 1996
***************
*** 298,304 ****
(list (string-append (car maybe-prefix) ".~a"))))))
(define *temp-file-template*
! (make-fluid (string-append "/usr/tmp/" (number->string (pid)) ".~a")))
(define (temp-file-iterate maker . maybe-template)
--- 298,304 ----
(list (string-append (car maybe-prefix) ".~a"))))))
(define *temp-file-template*
! (make-fluid (string-append "/var/tmp/" (number->string (pid)) ".~a")))
(define (temp-file-iterate maker . maybe-template)
|