From 301631c0d6f5bb8aeee6c62faa43ed235e705d69 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 1 Dec 2011 13:35:10 -0600
Subject: [PATCH] add a contract for slideshow/pict's bitmap function

---
 collects/texpict/utils.rkt | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/collects/texpict/utils.rkt b/collects/texpict/utils.rkt
index 86129e7039..4d9c2b3d2e 100644
--- a/collects/texpict/utils.rkt
+++ b/collects/texpict/utils.rkt
@@ -5,6 +5,7 @@
            racket/draw
            racket/math
            racket/gui/dynamic
+           racket/snip
            "mrpict.rkt")
 
   ;; Utilities for use with mrpict
@@ -44,7 +45,6 @@
 	   add-arrow-line
 	   add-arrows-line
 
-	   bitmap
 	   bitmap-draft-mode
 
            find-pen
@@ -99,7 +99,12 @@
                            boolean?
                            #:style (or/c false/c symbol?)
                            #:hide-arrowhead? any/c)
-                          pict?)])
+                          pict?)]
+   [bitmap (-> (or/c path-string?
+                     (is-a?/c bitmap%)
+                     (is-a?/c image-snip%))
+               pict?)]
+   )