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

clean up autosave a little

Browse Source 
guard more of the filesystem manipulations with
handlers and log errors instead of letting them
be raised and show up as internal errors

related to PR 13403
This commit is contained in:
Robby Findler 2013-01-03 13:51:14 -06:00
parent 69d7cb2e82
commit 94b54db118
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/framework/private/editor.rkt
View File

@ -552,9 +552,11 @@
(let ([back-name (path-utils:generate-backup-name name)])
(when (or (not (file-exists? back-name))
(file-old? back-name))
(when (file-exists? back-name)
(delete-file back-name))
(with-handlers ([(λ (x) #t) void])
(with-handlers ([exn:fail?
(λ (exn)
(log-debug "failed to clean up autosave file.1: ~a" back-name))])
(when (file-exists? back-name)
(delete-file back-name))
(copy-file name back-name)))))
(inner (void) on-save-file name format))
(define/augment (on-close)
@ -635,9 +637,13 @@
(define/public (remove-autosave)
(when auto-saved-name
(when (file-exists? auto-saved-name)
(delete-file auto-saved-name))
(set! auto-saved-name #f)))
(super-instantiate ())
(with-handlers ([exn:fail?
(λ (exn)
(log-debug "failed to clean up autosave file.2: ~a"
auto-saved-name))])
(delete-file auto-saved-name)
(set! auto-saved-name #f)))))
(super-new)
(autosave:register this)))
(define info<%> (interface (basic<%>)))