From 6b09b6d98b85310c2e75312b99cc826207589a52 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 12 Dec 2002 01:30:18 +0000 Subject: [PATCH] . original commit: fc3b1ce3cb42f68c71a008d08f9ef14e65e523b5 --- collects/tests/mred/paramz.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/tests/mred/paramz.ss b/collects/tests/mred/paramz.ss index 789043a8..2d35300e 100644 --- a/collects/tests/mred/paramz.ss +++ b/collects/tests/mred/paramz.ss @@ -35,12 +35,13 @@ (define d (make-object dialog% "hello")) (thread (lambda () (sleep 1) - (queue-callback (lambda () (set! v 9))) + (queue-callback (lambda () (set! v 11))) (send d show #f))) +(queue-callback (lambda () (set! v 10))) (send d show #t) -(test v 'dialog-wait 9) +(test v 'dialog-wait 10) (yield) -(test v 'dialog-run 9) +(test v 'dialog-run 11) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Parameterization Tests ;;