Fixed bug that caused an internal error when opening a new drscheme window
svn: r9360
This commit is contained in:
parent
3730930380
commit
a9ad2600c1
|
@ -191,7 +191,8 @@
|
||||||
[else (send (car m) restore) (r-loop (cdr m))]))))]
|
[else (send (car m) restore) (r-loop (cdr m))]))))]
|
||||||
[else (send testing-menu delete)])))
|
[else (send testing-menu delete)])))
|
||||||
|
|
||||||
(drscheme:language:register-capability 'tests:test-menu (flat-contract boolean?) #f)
|
(unless (drscheme:language:capability-registered? 'tests:test-menu)
|
||||||
|
(drscheme:language:register-capability 'tests:test-menu (flat-contract boolean?) #f))
|
||||||
(super-instantiate ())
|
(super-instantiate ())
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user