From 1e5bc33d878f996e4ba25615439833c92f4465ce Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 31 Jul 2007 17:26:28 +0000 Subject: [PATCH] changed metadata saving setup so that the edit sequence ends AFTER the set-modified flag is set back to #f svn: r6989 --- collects/drscheme/private/unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 3ae33d4191..c66586dda6 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -462,9 +462,9 @@ module browser threading seems wrong. (let ([modified? (is-modified?)]) (delete 0 (string-length save-file-metadata)) (set! save-file-metadata #f) - (end-edit-sequence) ;; restore modification status to where it was before the metadata is removed - (set-modified modified?))) + (set-modified modified?) + (end-edit-sequence))) (inner (void) after-save-file success?)) (define/augment (on-load-file filename format)