Small bug fix for when on-execute has no rep

svn: r9627
2008-05-03 11:29:12 +00:00 · 2008-05-03 11:29:12 +00:00 · cfd0a73743
commit cfd0a73743
parent 0340ae770f
1 changed files with 2 additions and 1 deletions
--- 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)