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

commit 8a38388cd7d10f1c62de16ebba6e7006ce08705e
parent 637b443ddc67841d4b9f33e989af3b6a7dc4d068
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu,  6 May 2010 10:33:42 -0600

switch printer to constructor+quote style

original commit: 43027a8d9b862d44c84bd6922716f69bf81f8f14

Diffstat:
M
collects/scribble/eval.rkt
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/eval.rkt b/collects/scribble/eval.rkt
@@ -124,7 +124,7 @@
                                                       (list
                                                        (hspace 2)
                                                        (elem #:style result-color
-                                                             (to-element/no-color v #:qq? (print-as-quasiquote)))))))))
+                                                             (to-element/no-color v #:qq? (print-as-expression)))))))))
                             val-list))))
              (loop (cdr expr-paras)
                    (cdr val-list+outputs)
@@ -320,7 +320,7 @@
 
   (define (show-val v)
     (elem #:style result-color
-          (to-element/no-color v #:qq? (print-as-quasiquote))))
+          (to-element/no-color v #:qq? (print-as-expression))))
 
   (define (do-interaction-eval-show ev e)
     (parameterize ([current-command-line-arguments #()])