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

Small bug fix for when on-execute has no rep

Browse Source 
svn: r9627
This commit is contained in:
Kathy Gray 2008-05-03 11:29:12 +00:00
parent 0340ae770f
commit cfd0a73743
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/test-engine/test-engine.scm
View File

@ -142,7 +142,8 @@
(fprintf port "This program should be tested.~n")) (fprintf port "This program should be tested.~n"))
(define/public (display-results rep event-space) (define/public (display-results rep event-space)
(send test-display install-info test-info) (send test-display install-info test-info)
(if event-space
(if (and rep event-space)
(parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) (parameterize ([(dynamic-require 'scheme/gui 'current-eventspace)
event-space]) event-space])
((dynamic-require 'scheme/gui 'queue-callback) ((dynamic-require 'scheme/gui 'queue-callback)