guard against strange syntax objects being passed to 'code'

2011-12-02 15:18:18 -06:00 · 2011-12-02 15:18:18 -06:00 · 1f2d0462a9
commit 1f2d0462a9
parent 7397f710e2
1 changed files with 1 additions and 0 deletions
--- a/collects/texpict/code.rkt
+++ b/collects/texpict/code.rkt
@ -499,6 +499,7 @@
            [(a b i ... c)
             (let ([pos (for/fold ([pos (syntax-position #'b)]) ([i (in-list (syntax->list #'(i ... c)))])
                          (and pos 
+                               (syntax-position i)
                               ((syntax-position i) . > . pos)
                               (syntax-position i)))])
               (and pos