svn: r18006

2010-02-06 19:05:35 +00:00 · 2010-02-06 19:05:35 +00:00 · 2c602a08c4
commit 2c602a08c4
parent 75a60162b0
1 changed files with 0 additions and 20 deletions
--- a/collects/2htdp/tests/robby-optimization-gone.ss
+++ b/collects/2htdp/tests/robby-optimization-gone.ss
@ -1,20 +0,0 @@
-#lang scheme/gui
-
-(require 2htdp/universe)
-(require 2htdp/image)
-
-(define s "")
-(define x 1)
-
-(big-bang 1
-          (on-tick (lambda (w)
-                     (begin 
-                       (set! x (+ x 1))
-                       (if (= x 3) 0 1))))
-          (stop-when zero?)
-          (on-draw (lambda (w)
-                     (begin
-                       (set! s (string-append "-" s))
-                       (rectangle 1 1 'solid 'green)))))
-
-(unless (string=? s "---") (error 'world-update-test "failed! ~s" s))