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

only require mred/mred, not all of scheme/gui (which includes

Browse Source 
mred/mred but also lots of stuff from the scheme library)
This commit is contained in:
Robby Findler 2010-10-11 08:16:24 -05:00
parent 8032705cf9
commit 0998934e1e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/test-engine/test-engine.rkt
View File

@ -150,8 +150,8 @@
(define/private (clear-results event-space)
(when event-space
(parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) event-space])
((dynamic-require 'scheme/gui 'queue-callback)
(parameterize ([(dynamic-require 'mred/mred 'current-eventspace) event-space])
((dynamic-require 'mred/mred 'queue-callback)
(lambda () (send test-display report-success))))))
(define/public (summarize-results port)
@ -181,12 +181,12 @@
(define/public (display-results rep event-space)
(cond
[(and rep event-space)
(parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) event-space])
((dynamic-require 'scheme/gui 'queue-callback)
(parameterize ([(dynamic-require 'mred/mred 'current-eventspace) event-space])
((dynamic-require 'mred/mred 'queue-callback)
(lambda () (send rep display-test-results test-display))))]
[event-space
(parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) event-space])
((dynamic-require 'scheme/gui 'queue-callback) (lambda () (send test-display display-results))))]
(parameterize ([(dynamic-require 'mred/mred 'current-eventspace) event-space])
((dynamic-require 'mred/mred 'queue-callback) (lambda () (send test-display display-results))))]
[else (send test-display display-results)]))
(define/public (display-untested port)