From 116d961f357ba745a20301326ae58a42f2e0e9d1 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 20 May 2009 23:59:24 +0000 Subject: [PATCH] changed comment svn: r14892 --- collects/stepper/view-controller.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/stepper/view-controller.ss b/collects/stepper/view-controller.ss index ff88b74eea..b8a2c8b56f 100644 --- a/collects/stepper/view-controller.ss +++ b/collects/stepper/view-controller.ss @@ -358,7 +358,10 @@ (list x:finished-text 'finished-stepping (list))])]) (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) (program-expander (lambda args