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

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

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