From e05e6efc7ac6d8c12a03524a88ae3fb14464415a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 29 Jan 2011 11:18:49 -0600
Subject: [PATCH] added a missing syntax error check

---
 collects/2htdp/private/image-more.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt
index b7cd9fac35..0473b17dd1 100644
--- a/collects/2htdp/private/image-more.rkt
+++ b/collects/2htdp/private/image-more.rkt
@@ -1256,7 +1256,11 @@
                 (path->complete-path 
                  arg
                  (or (current-load-relative-directory)
-                     (current-directory)))])])
+                     (current-directory)))]
+               [else (raise-syntax-error 
+                      'bitmap 
+                      "expected the argument to specify a local path (via a string) or a module path (e.g. `icons/b-run.png')"
+                      stx)])])
        #`(bitmap/proc #,path))]))
 
 (define (bitmap/proc arg)