From f95d104d5a849a4f212b802ce99f14cd06ec3212 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 25 Jul 2005 18:43:18 +0000 Subject: [PATCH] updating highway demo svn: r439 --- .../demos/highway/highway-mztake-uncommented.ss | 15 +++++---------- collects/mztake/mztake.ss | 7 ++++--- 2 files changed, 9 insertions(+), 13 deletions(-) diff --git a/collects/mztake/demos/highway/highway-mztake-uncommented.ss b/collects/mztake/demos/highway/highway-mztake-uncommented.ss index 31328125a9..15df347da0 100644 --- a/collects/mztake/demos/highway/highway-mztake-uncommented.ss +++ b/collects/mztake/demos/highway/highway-mztake-uncommented.ss @@ -1,15 +1,10 @@ (require (lib "mztake.ss" "mztake") - (lib "animation.ss" "frtime")) + (lib "animation.ss" "frtime") + (lib "useful-code.ss" "mztake" "private")) (define/bind (loc "highway.ss" 3 4) speed) -(printf-b "current speed: ~a" (hold values-of-speed)) -(printf-b "last ten speeds: ~a" (history-b 10 values-of-speed)) - - -(map-e (lambda (a-speed) (when (>= a-speed 55) (pause radar-program))) - values-of-speed) - +(printf-b "current speed: ~a" speed) (define (make-speed-gauge speed) (let ([center (make-posn 200 200)]) @@ -23,6 +18,6 @@ "red")))) -(display-shapes (make-speed-gauge (hold values-of-speed))) +(display-shapes (make-speed-gauge speed)) -(set-runnning! true) +(set-running! (< speed 55)) \ No newline at end of file diff --git a/collects/mztake/mztake.ss b/collects/mztake/mztake.ss index b61c927994..eebb2fc5d0 100644 --- a/collects/mztake/mztake.ss +++ b/collects/mztake/mztake.ss @@ -199,11 +199,11 @@ ; Now that we processed the trace, do we want to pause or continue (when (debug-process-pause-requested? process) - (set-debug-process-pause-requested?! process false) (let loop () (unless (debug-process-resume-requested? process) (semaphore-wait (debug-process-run-semaphore process)) (loop))) + (set-debug-process-pause-requested?! process false) (set-debug-process-resume-requested?! process false)) (set-debug-process-marks! process false))) @@ -290,11 +290,12 @@ (not (frp:value-now (debug-process-exited? process))) (not (debug-process-pause-requested? process))) (process:running->paused process))) - + (define (resume process) (cond [(not (debug-process-run-semaphore process)) (process:new->running process)] [(and (not (frp:value-now (debug-process-exited? process))) + (debug-process-pause-requested? process) (not (debug-process-resume-requested? process))) (process:paused->running process)])) @@ -462,4 +463,4 @@ ;########################################################################################################### - ) + ) \ No newline at end of file