From 0e7c1aa804c0af50856dffe4c9ae48cb99b671a2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 31 Oct 2008 02:54:29 +0000 Subject: [PATCH] PR 9844 svn: r12191 --- 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 4fdde75f66..2925cb4068 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -511,7 +511,7 @@ module browser threading seems wrong. [name-mod (send lang get-reader-module)]) (when name-mod ;; the reader-module method's result is used a test of whether or not the get-metadata method is used for this language (let ([metadata (send lang get-metadata (filename->modname filename) settings)]) - (begin-edit-sequence) + (begin-edit-sequence #f) (begin-metadata-changes) (let ([locked? (is-locked?)]) (when locked? (lock #f)) @@ -552,7 +552,7 @@ module browser threading seems wrong. (define/augment (on-load-file filename format) (inner (void) on-load-file filename format) - (begin-edit-sequence)) + (begin-edit-sequence #f)) (define/augment (after-load-file success?) (when success? (let-values ([(module-language module-language-settings)