diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss index 945de315c3..603c7201be 100644 --- a/collects/scribble/eval.ss +++ b/collects/scribble/eval.ss @@ -118,7 +118,7 @@ (list (hspace 2) (elem #:style result-color - (to-element/no-color v)))))))) + (to-element/no-color v #:qq? (print-as-quasiquote))))))))) val-list)))) (loop (cdr expr-paras) (cdr val-list+outputs) @@ -314,7 +314,7 @@ (define (show-val v) (elem #:style result-color - (to-element/no-color v))) + (to-element/no-color v #:qq? (print-as-quasiquote)))) (define (do-interaction-eval-show ev e) (parameterize ([current-command-line-arguments #()]) diff --git a/collects/scribble/run.ss b/collects/scribble/run.ss index c171c7b76c..31874f87cb 100644 --- a/collects/scribble/run.ss +++ b/collects/scribble/run.ss @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (require "core.ss" "base-render.ss"