From 67467bc32ec98889665c74f16be41cace27dfad9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 3 Jan 2013 13:51:14 -0600 Subject: [PATCH] clean up autosave a little 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 original commit: 94b54db11823b4683234424174aca2836d422204 --- collects/framework/private/editor.rkt | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/collects/framework/private/editor.rkt b/collects/framework/private/editor.rkt index 836337a3..9b795836 100644 --- a/collects/framework/private/editor.rkt +++ b/collects/framework/private/editor.rkt @@ -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<%>)))