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

guard against strange syntax objects being passed to 'code'

Browse Source
This commit is contained in:
Robby Findler 2011-12-02 15:18:18 -06:00
parent 7397f710e2
commit 1f2d0462a9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/texpict/code.rkt
View File

@ -499,6 +499,7 @@
[(a b i ... c) [(a b i ... c)
(let ([pos (for/fold ([pos (syntax-position #'b)]) ([i (in-list (syntax->list #'(i ... c)))]) (let ([pos (for/fold ([pos (syntax-position #'b)]) ([i (in-list (syntax->list #'(i ... c)))])
(and pos (and pos
(syntax-position i)
((syntax-position i) . > . pos) ((syntax-position i) . > . pos)
(syntax-position i)))]) (syntax-position i)))])
(and pos (and pos