suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

toward scriblle qq

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-22 10:08:03 -06:00
parent 8e37ccb1bc
commit fbea19f35c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/eval.ss
View File

@ -118,7 +118,7 @@
(list (list
(hspace 2) (hspace 2)
(elem #:style result-color (elem #:style result-color
(to-element/no-color v)))))))) (to-element/no-color v #:qq? (print-as-quasiquote)))))))))
val-list)))) val-list))))
(loop (cdr expr-paras) (loop (cdr expr-paras)
(cdr val-list+outputs) (cdr val-list+outputs)
@ -314,7 +314,7 @@
(define (show-val v) (define (show-val v)
(elem #:style result-color (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) (define (do-interaction-eval-show ev e)
(parameterize ([current-command-line-arguments #()]) (parameterize ([current-command-line-arguments #()])

2
collects/scribble/run.ss
View File

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