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

fixes to dialog for too-many-step resolution

Browse Source
This commit is contained in:
John Clements 2012-06-19 23:51:42 -07:00
parent c01e8c1564
commit 63cc342cdb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/stepper/private/view-controller.rkt
View File

@ -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))