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

fix rendering of constructor style struct value's first field

Browse Source 
original commit: 0b71f65ba931d0d9c316a4e09c5b6b26f074bb3d
This commit is contained in:
Matthew Flatt 2010-08-24 07:19:15 -06:00
parent 49e5d4f640
commit d9f0de4582
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scribble/racket.rkt
View File

@ -604,7 +604,10 @@
[(mpair? (syntax-e c))
(syntax-e c)]
[else c])]
[first-expr? (and expr? (not (struct-proxy? (syntax-e c))) (not no-cons?))]
[first-expr? (and expr?
(or (zero? quote-depth)
(not (struct-proxy? (syntax-e c))))
(not no-cons?))]
[dotted? #f])
(cond
[(and (syntax? l)
@ -1114,10 +1117,10 @@
[else 0])]
[delta (if (and qq (zero? qq))
(cond
[(vector? v) 8]
[(struct? v) 1]
[no-cons? 1]
[else 5])
[(vector? v) 8] ; `(vector '
[(struct? v) 1] ; '('
[no-cons? 1] ; '('
[else 6]) ; `(list '
1)]
[r (let ([l (let loop ([col (+ col delta vec-sz graph-sz)]
[v (cond