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

no need for let*

Browse Source 
svn: r4841
This commit is contained in:
Eli Barzilay 2006-11-13 19:53:13 +00:00
parent d431875b43
commit 1de6b29aed
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/file.ss
View File

@ -391,10 +391,10 @@
;; To write the file, copy the old one to a temporary name ;; To write the file, copy the old one to a temporary name
;; (preserves permissions, etc), write to the temp file, ;; (preserves permissions, etc), write to the temp file,
;; then move (atomicly) the temp file to the normal name. ;; then move (atomicly) the temp file to the normal name.
(let* ([tmp-file (make-temporary-file (let ([tmp-file (make-temporary-file
"TMPPREF~a" "TMPPREF~a"
(and (file-exists? pref-file) pref-file) (and (file-exists? pref-file) pref-file)
pref-dir)]) pref-dir)])
;; If something goes wrong, try to delete the temp file. ;; If something goes wrong, try to delete the temp file.
(with-handlers ([exn:fail? (lambda (exn) (with-handlers ([exn:fail? (lambda (exn)
(with-handlers ([exn:fail:filesystem? void]) (with-handlers ([exn:fail:filesystem? void])