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

fixed a bug noticed by SamTH

Browse Source 
svn: r9931
This commit is contained in:
Robby Findler 2008-05-22 21:48:12 +00:00
parent 3c20d5d638
commit 094cbcff19
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3686,7 +3686,8 @@ module browser threading seems wrong.
(when lang (when lang
;; this test can fail when a language has been added wrongly via the tools interface ;; this test can fail when a language has been added wrongly via the tools interface
;; just ignore that menu item, in that case. ;; just ignore that menu item, in that case.
(let ([settings (send lang unmarshall-settings marshalled-settings)]) (let ([settings (or (send lang unmarshall-settings marshalled-settings)
(send lang default-settings))])
(when lang (when lang
(set! added-one? #t) (set! added-one? #t)
(new menu-item% (new menu-item%