fix Scribble `racket' rendering of quotes

which used to trigger too much space after a quoted form
This commit is contained in:
Matthew Flatt 2010-08-24 06:05:29 -06:00
parent f29c6a902f
commit 31f6a0da4e

View File

@ -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)