From e53589120fad6b337bebedde3b96fe9398db976a Mon Sep 17 00:00:00 2001
From: Jono Spiro <jono.spiro@gmail.com>
Date: Thu, 5 Aug 2004 02:42:30 +0000
Subject: [PATCH] svn: r141

---
 collects/mztake/demos/highway/highway-test.ss | 12 ++++++------
 collects/mztake/demos/highway/highway.ss      |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/collects/mztake/demos/highway/highway-test.ss b/collects/mztake/demos/highway/highway-test.ss
index e8eb6329c4..11de72589f 100644
--- a/collects/mztake/demos/highway/highway-test.ss
+++ b/collects/mztake/demos/highway/highway-test.ss
@@ -3,7 +3,7 @@
 (require (lib "animation.ss" "frtime")) ;; needed for display-shapes
 
 
-(mztake-process p ("highway.ss" [values-of-speed 3 4 bind 'speed]))
+(mztake-process radar-program ("highway.ss" [values-of-speed 3 4 bind 'speed]))
 #| * Create a process to debug highway.ss
 
    * Add a tracepoint at line 3, column 4; in the program,
@@ -15,15 +15,15 @@
          every time the code at line 3, column 4, is reached.
 |#
 
-(printf-b "runtime elapsed: ~a" (process:runtime/seconds p))
+(printf-b "runtime elapsed: ~a" (process:runtime/seconds radar-program))
 ;; Prints how long the program has been running, in seconds
 
 (printf-b "last ten speeds: ~a" (history-b 10 values-of-speed))
 ;; prints a FIFO list of the last 10 speeds seen
 
-(map (lambda (an-x) (if (< an-x 55) 'ok 'too-fast!!))
-     (history-b 10 values-of-speed))
-;; prints a 
+(map-e (lambda (a-speed) (when (>= a-speed 55) (pause radar-program)))
+       values-of-speed)
+;; pauses the program for inspection when a speed is too fast
 
 ;; produces a list of shapes to draw/animate, taking in a number for speed
 (define (make-speed-gauge speed)
@@ -47,5 +47,5 @@
    which gets called every time values-of-speed gets a new speed.
 |#
 
-(start/resume p)
+(start/resume radar-program)
 ;; Start the process for highway.ss
\ No newline at end of file
diff --git a/collects/mztake/demos/highway/highway.ss b/collects/mztake/demos/highway/highway.ss
index de2b43de9f..7e5580a1f8 100644
--- a/collects/mztake/demos/highway/highway.ss
+++ b/collects/mztake/demos/highway/highway.ss
@@ -2,4 +2,4 @@
   (let loop ([speed 0])
     (sleep 1)
     ;; Generate some fake speeds readings:
-    (loop (* 5 (modulo (current-seconds) 20)))))
\ No newline at end of file
+    (loop (+ speed 4))))
\ No newline at end of file