From d681de23adbb27e345209976ff4ecf9afb590c2d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 8 May 2010 07:36:54 -0600 Subject: [PATCH] rackety framework and tools docs original commit: 6563ef6812bfc2ea8921165d12cb78e74dca4626 --- collects/scribble/racket.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt index 836c9355..e3b3e944 100644 --- 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)