bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit dd65e681e2cab9a1dd2c003282929af626aa6038
parent 5aadb05b51488cece1e9130b95502413dd091878
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 10 May 2010 18:05:02 -0600

change prop:custom-print-as-constructor to more general prop:custom-print-quotable

original commit: 899e85f94f43bf4298c128505da919629dbceeee

Diffstat:
M
collects/scribble/racket.rkt
 | 
11
+++++++----

1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt
@@ -998,10 +998,13 @@
                    (prefab-struct-key v))
               (andmap quotable? (vector->list (struct->vector v)))]
              [(struct? v) (if (custom-write? v)
-                              (if (and (custom-print-as-constructor? v)
-                                       (custom-print-as-constructor-accessor v))
-                                  #f
-                                  #t)
+                              (case (or (and (custom-print-quotable? v)
+                                             (custom-print-quotable-accessor v))
+                                        'self)
+                                [(self always) #t]
+                                [(never) #f]
+                                [(maybe)
+                                 (andmap quotable? (vector->list (struct->vector v)))])
                               #f)]
              [(struct-proxy? v) #f]
              [(mpair? v) #f]