suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Change default temporary format from "mztmp~a" to "rkttmp~a".

Browse Source
This commit is contained in:
Eli Barzilay 2011-08-29 20:53:57 -04:00
parent d4f4f754f1
commit 187110cc2c
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/file.rkt
View File

@ -107,7 +107,7 @@
(define combined-str (define combined-str
(cond (cond
[str-src (string-append str-src str-loc)] [str-src (string-append str-src str-loc)]
[else (string-append "mztmp" str-loc)])) [else (string-append "rkttmp" str-loc)]))
(define sanitized-str (define sanitized-str
(regexp-replace* (regexp-replace*
#rx"[<>]" #rx"[<>]"
@ -128,7 +128,7 @@
(define make-temporary-file/proc (define make-temporary-file/proc
(let () (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? (with-handlers ([exn:fail:contract?
(lambda (x) (lambda (x)
(raise-type-error 'make-temporary-file (raise-type-error 'make-temporary-file

6
collects/scribblings/reference/filesystem.scrbl
View File

@ -868,7 +868,7 @@ Creates directory specified by @racket[path], creating intermediate
directories as necessary.} 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] [copy-from-filename (or/c path-string? #f 'directory) #f]
[directory (or/c path-string? #f) #f]) [directory (or/c path-string? #f) #f])
path?]{ path?]{
@ -887,11 +887,11 @@ provided and non-@racket[#f], in which case the
file name generated from @racket[template] is combined with file name generated from @racket[template] is combined with
@racket[directory] to obtain a full path. @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 when there is no source location information for the callsite of
@racket[make-temporary-file] (or if @racket[make-temporary-file] is @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 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 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 is created as a copy of the named file (using @racket[copy-file]). If