From cc0f246048c60e1cd43a9412e0f67c1a7bc4c855 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 29 Oct 2010 14:39:05 -0500
Subject: [PATCH] unbreak 2htdp/image

---
 collects/2htdp/image.rkt                         | 9 +++------
 collects/teachpack/2htdp/scribblings/image.scrbl | 8 +-------
 2 files changed, 4 insertions(+), 13 deletions(-)

diff --git a/collects/2htdp/image.rkt b/collects/2htdp/image.rkt
index 9aff254658..80502263d2 100644
--- a/collects/2htdp/image.rkt
+++ b/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)
diff --git a/collects/teachpack/2htdp/scribblings/image.scrbl b/collects/teachpack/2htdp/scribblings/image.scrbl
index d3e48d1761..10bc2b7427 100644
--- a/collects/teachpack/2htdp/scribblings/image.scrbl
+++ b/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