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

fix rendering of transparent structures

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-03 08:14:57 -06:00
parent 37c43c23d6
commit 3a51e80751
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/racket.rkt
View File

@ -571,10 +571,14 @@
(if (struct-proxy? (syntax-e c))
(syntax-e (struct-proxy-name (syntax-e c)))
(object-name (syntax-e c))))])])
(set! src-col (+ src-col (string-length s)))
(set! src-col (+ src-col (if (struct-proxy? (syntax-e c))
1
(string-length s))))
s)
symbol-color)
(out " " no-color)))
(unless (and (struct-proxy? (syntax-e c))
(null? (struct-proxy-content (syntax-e c))))
(out " " no-color))))
(when (vector? (syntax-e c))
(unless (and expr? (zero? quote-depth))
(let ([vec (syntax-e c)])