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

PR 9844

Browse Source 
svn: r12191
This commit is contained in:
Robby Findler 2008-10-31 02:54:29 +00:00
parent a398630230
commit 0e7c1aa804
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)