From a9ad2600c1fce9ffb7a9fd80bb1f99bbf53441cd Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Fri, 18 Apr 2008 12:21:51 +0000 Subject: [PATCH] Fixed bug that caused an internal error when opening a new drscheme window svn: r9360 --- collects/test-engine/test-tool.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/test-engine/test-tool.scm b/collects/test-engine/test-tool.scm index c7381d48d8..234d719eb2 100644 --- a/collects/test-engine/test-tool.scm +++ b/collects/test-engine/test-tool.scm @@ -191,7 +191,8 @@ [else (send (car m) restore) (r-loop (cdr m))]))))] [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 ()) ))