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)) [(mpair? (syntax-e c))
(syntax-e c)] (syntax-e c)]
[else 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]) [dotted? #f])
(cond (cond
[(and (syntax? l) [(and (syntax? l)
@ -1114,10 +1117,10 @@
[else 0])] [else 0])]
[delta (if (and qq (zero? qq)) [delta (if (and qq (zero? qq))
(cond (cond
[(vector? v) 8] [(vector? v) 8] ; `(vector '
[(struct? v) 1] [(struct? v) 1] ; '('
[no-cons? 1] [no-cons? 1] ; '('
[else 5]) [else 6]) ; `(list '
1)] 1)]
[r (let ([l (let loop ([col (+ col delta vec-sz graph-sz)] [r (let ([l (let loop ([col (+ col delta vec-sz graph-sz)]
[v (cond [v (cond