From cf75609d823e931e06fd8ea2399d2465a39cf5b1 Mon Sep 17 00:00:00 2001
From: Neil Toronto <ntoronto@racket-lang.org>
Date: Mon, 14 Nov 2011 22:00:37 -0800
Subject: [PATCH] Little fixes

---
 collects/plot/scribblings/custom.scrbl |  1 -
 collects/plot/tests/plot2d-tests.rkt   |  4 ----
 collects/plot/tests/plot3d-tests.rkt   | 12 +++---------
 3 files changed, 3 insertions(+), 14 deletions(-)

diff --git a/collects/plot/scribblings/custom.scrbl b/collects/plot/scribblings/custom.scrbl
index 90c3d704a2..c17683cbcf 100644
--- a/collects/plot/scribblings/custom.scrbl
+++ b/collects/plot/scribblings/custom.scrbl
@@ -4,7 +4,6 @@
 
 @title[#:tag "custom"]{Custom Plot Elements}
 
-@defmodule*/no-declare[(plot/utils)]
 @declare-exporting[plot/utils]
 
 @section{Plot Elements}
diff --git a/collects/plot/tests/plot2d-tests.rkt b/collects/plot/tests/plot2d-tests.rkt
index 287e55eab9..e278707766 100644
--- a/collects/plot/tests/plot2d-tests.rkt
+++ b/collects/plot/tests/plot2d-tests.rkt
@@ -18,10 +18,6 @@
 
 (time (plot (function values 0 1000)))
 
-(time
- (define flepsilon (ordinal->flonum 1))
- (plot (lines (list (vector 0 0) (vector flepsilon flepsilon)))))
-
 (parameterize ([plot-x-transform  log-transform]
                [plot-x-ticks      (log-ticks #:base 4)]
                [plot-y-transform  log-transform]
diff --git a/collects/plot/tests/plot3d-tests.rkt b/collects/plot/tests/plot3d-tests.rkt
index 44771f0cc5..e0e43c26fe 100644
--- a/collects/plot/tests/plot3d-tests.rkt
+++ b/collects/plot/tests/plot3d-tests.rkt
@@ -10,15 +10,6 @@
 (time
  (plot3d (points3d empty) #:x-min -1 #:x-max 1 #:y-min -1 #:y-max 1 #:z-min -1 #:z-max 1))
 
-(define flepsilon (ordinal->flonum 1))
-
-(time
- (plot3d (lines3d (list (vector 0 0 0) (vector flepsilon flepsilon flepsilon)))))
-
-(time
- (plot3d (contour-intervals3d (λ (x y) (- (sqr x) (sqr y)))
-                              (- flepsilon) flepsilon (- flepsilon) flepsilon)))
-
 (parameterize ([plot-background  "black"]
                [plot-foreground  "white"]
                [plot-background-alpha  1/2]
@@ -242,3 +233,6 @@
                                      #:contour-styles '(long-dash)
                                      #:alphas '(1 2/3))
                 #:altitude 20)))
+
+(time
+ (plot3d (contour-intervals3d (λ (x y) (- (sqr x) (sqr y))) -min.0 +min.0 -min.0 +min.0)))