From 0998934e1ef2ddb48b3f02aa425b29ca5da7f63a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 11 Oct 2010 08:16:24 -0500 Subject: [PATCH] only require mred/mred, not all of scheme/gui (which includes mred/mred but also lots of stuff from the scheme library) --- collects/test-engine/test-engine.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/test-engine/test-engine.rkt b/collects/test-engine/test-engine.rkt index 9c0997e628..3cc7fba2a4 100644 --- a/collects/test-engine/test-engine.rkt +++ b/collects/test-engine/test-engine.rkt @@ -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)