remove printf

2014-05-13 15:29:02 -05:00 · 2014-05-13 15:29:02 -05:00 · 6eba1ec9a6
commit 6eba1ec9a6
parent 951a6f051b
1 changed files with 0 additions and 1 deletions
--- a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt
+++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt
@ -705,7 +705,6 @@
            (max ay by cy dy))))

 (define (rotate-points in-points θ)
-  (printf "θ ~s\n" θ)
  (let* ([cs (map point->c in-points)]
         [vectors (points->vectors cs)]
         [rotated-vectors (map (λ (c) (rotate-c c θ)) vectors)]