From 1f2d0462a93b7ab5b5146d186a54ad8d1c4be5ee Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 2 Dec 2011 15:18:18 -0600
Subject: [PATCH] guard against strange syntax objects being passed to 'code'

---
 collects/texpict/code.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/texpict/code.rkt b/collects/texpict/code.rkt
index 9c928e24f4..46a3398198 100644
--- 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