diff --git a/scsh/scsh.scm b/scsh/scsh.scm index 3aca9a3..d670c29 100644 --- a/scsh/scsh.scm +++ b/scsh/scsh.scm @@ -430,7 +430,7 @@ ;;; Create a new temporary file and return its name. ;;; The optional argument specifies the filename prefix to use, and defaults -;;; to "/usr/tmp/.", where is the current process' id. The procedure +;;; to "/tmp/.", where is the current process' id. The procedure ;;; scans through the files named 0, 1, ... until it finds a ;;; filename that doesn't exist in the filesystem. It creates the file with ;;; permission #o600, and returns the filename. @@ -447,7 +447,7 @@ (list (string-append (car maybe-prefix) ".~a")))))) (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)