From 31f6a0da4ee3239706c80f0082a81e7b44ae7e28 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 24 Aug 2010 06:05:29 -0600
Subject: [PATCH] fix Scribble `racket' rendering of quotes  which used to
 trigger too much space after a quoted form

---
 collects/scribble/racket.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt
index 9c2be06ca2..a132ac47d0 100644
--- a/collects/scribble/racket.rkt
+++ b/collects/scribble/racket.rkt
@@ -1088,8 +1088,7 @@
                             (list (do-syntax-ize (car v) col line ht #f qq #f)
                                   c)
                             (vector #f line col (+ 1 col)
-                                    (+ 1 
-                                       (if (and qq (zero? qq)) 1 0)
+                                    (+ delta
                                        (syntax-span c))))))]
      [(or (list? v)
           (vector? v)