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

changed comment

Browse Source 
svn: r14892
This commit is contained in:
John Clements 2009-05-20 23:59:24 +00:00
parent 2e3a0bcd0d
commit 116d961f35
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/stepper/view-controller.ss
View File

@ -358,7 +358,10 @@
(list x:finished-text 'finished-stepping (list))])]) (list x:finished-text 'finished-stepping (list))])])
(hand-off-and-block step-text step-kind posns))) (hand-off-and-block step-text step-kind posns)))
;; need to capture the custodian as the thread starts up: ;; program-expander-prime : wrap the program-expander for a couple of reasons:
;; 1) we need to capture the custodian as the thread starts up:
;; ok, it was just one.
;;
(define (program-expander-prime init iter) (define (program-expander-prime init iter)
(program-expander (program-expander
(lambda args (lambda args