diff --git a/collects/racket/file.rkt b/collects/racket/file.rkt index 134343e381..2faa09b26e 100644 --- a/collects/racket/file.rkt +++ b/collects/racket/file.rkt @@ -107,7 +107,7 @@ (define combined-str (cond [str-src (string-append str-src str-loc)] - [else (string-append "mztmp" str-loc)])) + [else (string-append "rkttmp" str-loc)])) (define sanitized-str (regexp-replace* #rx"[<>]" @@ -128,7 +128,7 @@ (define make-temporary-file/proc (let () - (define (make-temporary-file [template "mztmp~a"] [copy-from #f] [base-dir #f]) + (define (make-temporary-file [template "rkttmp~a"] [copy-from #f] [base-dir #f]) (with-handlers ([exn:fail:contract? (lambda (x) (raise-type-error 'make-temporary-file diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index 32f9b74dec..36377431c0 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -868,7 +868,7 @@ Creates directory specified by @racket[path], creating intermediate directories as necessary.} -@defproc[(make-temporary-file [template string? "mztmp~a"] +@defproc[(make-temporary-file [template string? "rkttmp~a"] [copy-from-filename (or/c path-string? #f 'directory) #f] [directory (or/c path-string? #f) #f]) path?]{ @@ -887,11 +887,11 @@ provided and non-@racket[#f], in which case the file name generated from @racket[template] is combined with @racket[directory] to obtain a full path. -The @racket[template] argument's default is only the string @racket["mztmp~a"] +The @racket[template] argument's default is only the string @racket["rkttmp~a"] when there is no source location information for the callsite of @racket[make-temporary-file] (or if @racket[make-temporary-file] is used in a higher-order position). If there is such information, then the template -string is built based on the source location. +string is based on the source location. If @racket[copy-from-filename] is provided as path, the temporary file is created as a copy of the named file (using @racket[copy-file]). If