fix pretty-print bug for transparent structs that span lines

This commit is contained in:
Matthew Flatt 2010-05-05 10:32:48 -06:00
parent 625c35f892
commit 0b9370bc5e

View File

@ -910,7 +910,7 @@
(when pf? (out "s")))
(pp-list (let ([l (vector->list v)])
(if (and qd (not pf?))
(cons (make-unquoted (object-name v))
(cons (make-unquoted (object-name obj))
(cdr l))
l))
extra pp-expr #f depth