added a missing syntax error check

This commit is contained in:
Robby Findler 2011-01-29 11:18:49 -06:00
parent 46dc2d6683
commit e05e6efc7a

View File

@ -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)