From cfd0a73743e46f2a8eed693ffd0b971f4ecd40a1 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Sat, 3 May 2008 11:29:12 +0000 Subject: [PATCH] Small bug fix for when on-execute has no rep svn: r9627 --- collects/test-engine/test-engine.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/test-engine/test-engine.scm b/collects/test-engine/test-engine.scm index 819028f6ec..64a07b5e86 100644 --- a/collects/test-engine/test-engine.scm +++ b/collects/test-engine/test-engine.scm @@ -142,7 +142,8 @@ (fprintf port "This program should be tested.~n")) (define/public (display-results rep event-space) (send test-display install-info test-info) - (if event-space + + (if (and rep event-space) (parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) event-space]) ((dynamic-require 'scheme/gui 'queue-callback)