suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added a missing syntax error check

Browse Source
This commit is contained in:
Robby Findler 2011-01-29 11:18:49 -06:00
parent 46dc2d6683
commit e05e6efc7a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/private/image-more.rkt
View File

@ -1256,7 +1256,11 @@
(path->complete-path (path->complete-path
arg arg
(or (current-load-relative-directory) (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))])) #`(bitmap/proc #,path))]))
(define (bitmap/proc arg) (define (bitmap/proc arg)