switch printer to constructor+quote style

original commit: 43027a8d9b862d44c84bd6922716f69bf81f8f14
This commit is contained in:
Matthew Flatt 2010-05-06 10:33:42 -06:00
commit 8a38388cd7

View File

@ -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 #()])