commit d9f0de4582f7292d8dae03d96aaeea474c730c91 parent 49e5d4f640d5b853047a4082a0c62f768ddcae81 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Tue, 24 Aug 2010 07:19:15 -0600 fix rendering of constructor style struct value's first field original commit: 0b71f65ba931d0d9c316a4e09c5b6b26f074bb3d Diffstat:
| M | collects/scribble/racket.rkt | | | 13 | ++++++++----- |
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt @@ -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