added a missing syntax error check
This commit is contained in:
parent
46dc2d6683
commit
e05e6efc7a
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user