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

fix syntax error check in 'bitmap'

Browse Source 
closes PR 14763
This commit is contained in:
Robby Findler 2014-10-04 09:28:29 -05:00
parent c89434d56b
commit d46b097bc8
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt
View File

@ -1356,23 +1356,23 @@
(eq? (car arg) 'planet))
(raise-syntax-error 'bitmap "planet paths not yet supported" stx)]
[(symbol? arg)
(let ([pieces (regexp-split #rx"/" (symbol->string arg))])
(cond
[(null? pieces)
(raise-syntax-error 'bitmap "expected a path with a / in it" stx)]
[else
(define fn (last pieces))
(define colls (reverse (cdr (reverse pieces))))
(define candidate
(apply collection-file-path fn colls
#:fail
(λ (msg) (raise-syntax-error 'bitmap msg stx))))
(unless (file-exists? candidate)
(raise-syntax-error 'bitmap
(format "could not find ~s, expected it to be in ~a"
arg candidate)
stx))
(cons fn colls)]))]
(define pieces (regexp-split #rx"/" (symbol->string arg)))
(cond
[(or (null? pieces) (null? (cdr pieces)))
(raise-syntax-error 'bitmap "expected a path with a / in it" stx)]
[else
(define fn (last pieces))
(define colls (reverse (cdr (reverse pieces))))
(define candidate
(apply collection-file-path fn colls
#:fail
(λ (msg) (raise-syntax-error 'bitmap msg stx))))
(unless (file-exists? candidate)
(raise-syntax-error 'bitmap
(format "could not find ~s, expected it to be in ~a"
arg candidate)
stx))
(cons fn colls)])]
[(string? arg)
(path->complete-path
arg