unbreak 2htdp/image

collects/2htdp/image.rkt

@@ -50,8 +50,7 @@ and they all have good sample contracts. (It is amazing what we can do with kids
          "private/image-more.ss"
          "private/img-err.ss"
          (only-in lang/prim provide-primitive provide-primitives define-primitive)
-         htdp/error
-         (only-in lang/imageeq image=?))
+         htdp/error)
 
 (provide-primitives
          overlay
@@ -138,11 +137,9 @@ and they all have good sample contracts. (It is amazing what we can do with kids
          make-pen pen
          pen?
          step-count?
-         save-image
-         image=?)
+         save-image)
 
-(provide bitmap 
-         image=?)
+(provide bitmap)
 
 (define-primitive make-color build-color/make-color)
 (define-primitive color build-color/color)

collects/teachpack/2htdp/scribblings/image.scrbl

@@ -2,7 +2,7 @@
 
 @(require (for-label (only-in racket/contract and/c or/c any/c not/c)
                      2htdp/image
-                     (except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image? image=?)
+                     (except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image?)
                      lang/posn
                      racket/gui/base
                      (only-in racket/base path-string?))
@@ -1283,12 +1283,6 @@ Two images are @racket[equal?] if they draw exactly the same way at their curren
 (not neccessarily at all sizes) and, if there are pinholes, the pinholes are
 in the same place.
 
-@defproc[(image=? [i1 image?] [i2 image?]) boolean?]{
-  Tests the same thing as @racket[(equal? i1 i2)], but 
-  insists that its arguments are images, signalling an error
-  otherwise.
-}
-
 @section[#:tag "pinholes"]{Pinholes}
 
 A pinhole is an optional property of an image that identifies a point somewhere