From 0b9370bc5e8234bf66d7bb3a6cde88ee5ba3bf67 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 5 May 2010 10:32:48 -0600 Subject: [PATCH] fix pretty-print bug for transparent structs that span lines --- collects/racket/pretty.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/pretty.rkt b/collects/racket/pretty.rkt index cab3c20b88..8145448c31 100644 --- a/collects/racket/pretty.rkt +++ b/collects/racket/pretty.rkt @@ -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