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

fixed PR 8779

Browse Source 
svn: r6753
This commit is contained in:
Robby Findler 2007-06-28 16:38:28 +00:00
parent 6bb124700c
commit 72db9fde16
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drscheme/private/unit.ss
View File

@ -458,10 +458,12 @@ module browser threading seems wrong.
(let-values ([(creator type) (file-creator-and-type filename)]) (let-values ([(creator type) (file-creator-and-type filename)])
(file-creator-and-type filename #"DrSc" type)))))) (file-creator-and-type filename #"DrSc" type))))))
(when save-file-metadata (when save-file-metadata
(delete 0 (string-length save-file-metadata)) (let ([modified? (is-modified?)])
(set! save-file-metadata #f) (delete 0 (string-length save-file-metadata))
(end-edit-sequence) (set! save-file-metadata #f)
(set-modified #f)) (end-edit-sequence)
;; restore modification status to where it was before the metadata is removed
(set-modified modified?)))
(inner (void) after-save-file success?)) (inner (void) after-save-file success?))
(define/augment (on-load-file filename format) (define/augment (on-load-file filename format)