scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed default directory for create-temp-file fro /usr/tmp to /tmp.

This commit is contained in:
mainzelm 2000-12-22 14:13:17 +00:00
parent ac9810b803
commit df2db4631d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/scsh.scm
View File

@ -430,7 +430,7 @@
;;; Create a new temporary file and return its name. ;;; Create a new temporary file and return its name.
;;; The optional argument specifies the filename prefix to use, and defaults ;;; 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 "/tmp/<pid>.", where <pid> is the current process' id. The procedure
;;; scans through the files named <prefix>0, <prefix>1, ... until it finds a ;;; 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 ;;; filename that doesn't exist in the filesystem. It creates the file with
;;; permission #o600, and returns the filename. ;;; permission #o600, and returns the filename.
@ -447,7 +447,7 @@
(list (string-append (car maybe-prefix) ".~a")))))) (list (string-append (car maybe-prefix) ".~a"))))))
(define *temp-file-template* (define *temp-file-template*
(make-fluid (string-append "/usr/tmp/" (number->string (pid)) ".~a"))) (make-fluid (string-append "/tmp/" (number->string (pid)) ".~a")))
(define (temp-file-iterate maker . maybe-template) (define (temp-file-iterate maker . maybe-template)