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

fix rendering of constructor style struct value's first field

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-24 07:19:15 -06:00
parent 0955ed6e8b
commit 0b71f65ba9
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