macro stepper tests: updated

svn: r13133

original commit: 92a938dc6dee5cc1f255135639a36f478c08151e
This commit is contained in:
Ryan Culpepper 2009-01-15 00:07:47 +00:00
parent b99ae65e0d
commit ab36883dfa

View File

@ -207,7 +207,8 @@
(sleep 1)
(parameterize ((current-eventspace (make-eventspace)))
(let ([frame (new macro-stepper-frame%
(config (new macro-stepper-config/prefs/readonly%)))])
(config (new macro-stepper-config/prefs/readonly%))
(director (new macro-stepper-director%)))])
(send frame show #t)
frame)))
@ -270,4 +271,4 @@
(send frame get-eventspace))))))))))
(define (test-stepper expr)
(test-stepper* (list expr) '(none basic normal))))
(test-stepper* (list expr) '(none basic normal)))