suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix Scribble `racket' rendering of quotes

Browse Source 
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
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/racket.rkt
View File

@ -1088,8 +1088,7 @@
(list (do-syntax-ize (car v) col line ht #f qq #f) (list (do-syntax-ize (car v) col line ht #f qq #f)
c) c)
(vector #f line col (+ 1 col) (vector #f line col (+ 1 col)
(+ 1 (+ delta
(if (and qq (zero? qq)) 1 0)
(syntax-span c))))))] (syntax-span c))))))]
[(or (list? v) [(or (list? v)
(vector? v) (vector? v)