fix Scribble `racket' rendering of quotes

which used to trigger too much space after a quoted form

original commit: 31f6a0da4ee3239706c80f0082a81e7b44ae7e28
This commit is contained in:
Matthew Flatt 2010-08-24 06:05:29 -06:00
parent 7857dca458
commit 49e5d4f640

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)