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

better job of checking module language setting invariants when reading from the prefs file

Browse Source 
svn: r15649
This commit is contained in:
Robby Findler 2009-07-31 16:00:15 +00:00
parent 6a4c6a5535
commit a6624f11e2
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/module-language.ss
View File

@ -116,7 +116,7 @@
(and (list? marshalled)
(let ([marshalled-len (length marshalled)])
;; older formats had no auto-text or compilation disabling
(and (<= 3 (length marshalled))
(and (<= 3 marshalled-len)
(let ([collection-paths (list-ref marshalled 1)]
[command-line-args (list-ref marshalled 2)]
[auto-text (if (<= marshalled-len 3)
@ -143,7 +143,14 @@
(list collection-paths
command-line-args
auto-text
compilation-on?
;; current versions of drscheme do not allow this combination
;; in the first place (compilation is only allowed in 'none
;; and 'debug mode), but older versions might.
(and (memq (drscheme:language:simple-settings-annotations super)
'(none debug))
compilation-on?)
full-trace?)))))))))))
(define/override (on-execute settings run-in-user-thread)