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

adjust Scribble to sync filename case with uses

Browse Source 
original commit: d97ee688676ca70a7714d09fadb681ad717ffe3b
This commit is contained in:
Matthew Flatt 2010-08-17 17:32:22 -06:00
parent 700ccfa9cb
commit d6bbf9dfe5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/html-render.rkt
View File

@ -1421,7 +1421,12 @@
[full-path (build-path (path-only (current-output-file)) [full-path (build-path (path-only (current-output-file))
filename)]) filename)])
(parameterize ([on-separate-page-ok #f]) (parameterize ([on-separate-page-ok #f])
(with-output-to-file full-path #:exists 'truncate/replace ;; We use 'replace instead of the usual 'truncate/replace
;; to avoid problems where a filename changes only in case,
;; in which case some platforms will see the old file
;; as matching the new name, while others don't. Replacing
;; the file syncs the case with the current uses.
(with-output-to-file full-path #:exists 'replace
(lambda () (render-one-part d ri full-path number))) (lambda () (render-one-part d ri full-path number)))
null)) null))
(parameterize ([on-separate-page-ok #t]) (parameterize ([on-separate-page-ok #t])