toward scriblle qq

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

collects/scribble/run.ss

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 
 (require "core.ss"
          "base-render.ss"