bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit d681de23adbb27e345209976ff4ecf9afb590c2d
parent 96f8dfdd6be6e2604e366a1d998b01611a3a0ae4
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat,  8 May 2010 07:36:54 -0600

rackety framework and tools docs

original commit: 6563ef6812bfc2ea8921165d12cb78e74dca4626

Diffstat:
M
collects/scribble/racket.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt
@@ -487,7 +487,7 @@
                 (let ([i (cadr (syntax->list c))])
                   (set! src-col (or (syntax-column i) src-col))
                   (hash-set! next-col-map src-col dest-col)
-                  ((loop init-line! (+ quote-depth quote-delta) expr? #f) i))))]
+                  ((loop init-line! (max 0 (+ quote-depth quote-delta)) expr? #f) i))))]
            [(and (pair? (syntax-e c))
                  (or (not expr?) 
                      (positive? quote-depth)