From 63cc342cdb6815b92cde53908353b286e598e11b Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 19 Jun 2012 23:51:42 -0700 Subject: [PATCH] fixes to dialog for too-many-step resolution --- collects/stepper/private/view-controller.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/stepper/private/view-controller.rkt b/collects/stepper/private/view-controller.rkt index 7dc465721d..d53a2ffd5f 100644 --- a/collects/stepper/private/view-controller.rkt +++ b/collects/stepper/private/view-controller.rkt @@ -376,7 +376,7 @@ (when (= runaway-counter runaway-counter-limit) (define runaway-semaphore (make-semaphore 0)) (async-channel-put view-channel - (list 'runaway-block runaway-semaphore)) + (runaway-process runaway-semaphore)) ;; wait for a signal to continue running: (semaphore-wait runaway-semaphore)) (async-channel-put view-channel result))