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

removed a left-over printf

Browse Source 
svn: r13209
This commit is contained in:
Matthias Felleisen 2009-01-19 02:13:47 +00:00
parent c95f144971
commit d35d05956e
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/htdp/world.ss
View File

@ -471,7 +471,6 @@ Matthew
(define dir (direction x0 y0 x1 y1)) (define dir (direction x0 y0 x1 y1))
(define-values (upp low lft rgt) (intersections lin w h)) (define-values (upp low lft rgt) (intersections lin w h))
(define (add x y) (add-line img x0 y0 x y c))) (define (add x y) (add-line img x0 y0 x y c)))
(printf "up/low: ~s x ~s ~s\n" upp low dir)
(cond (cond
[(and (< 0 x0 w) (< 0 y0 h)) ;; (x0,y0) is in the interior [(and (< 0 x0 w) (< 0 y0 h)) ;; (x0,y0) is in the interior
(case dir (case dir