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

.

Browse Source 
original commit: bc4bb3c7e5ae52d1c3784d3b68d72a5587f19dfd
This commit is contained in:
Matthew Flatt 2002-01-29 21:17:16 +00:00
parent 1648706cd8
commit 8a100e83c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/file.ss
View File

@ -384,7 +384,7 @@
;; (preserves permissions, etc), write to the temp file,
;; then move (atomicly) the temp file to the normal name.
(let* ([tmp-file (make-temporary-file
(build-path pref-dir "TMPPREF~a")
(build-path (regexp-replace "~" pref-dir "~~") "TMPPREF~a")
(and (file-exists? pref-file) pref-file))])
(with-output-to-file tmp-file
(lambda ()