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

commit 49e5d4f640d5b853047a4082a0c62f768ddcae81
parent 7857dca4585b5f597b5041090a62df0d766b0a0f
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 24 Aug 2010 06:05:29 -0600

fix Scribble `racket' rendering of quotes
 which used to trigger too much space after a quoted form

original commit: 31f6a0da4ee3239706c80f0082a81e7b44ae7e28

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

1 file changed, 1 insertion(+), 2 deletions(-)
diff --git 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)