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

fixes to make pict eval results work in Scribble

Browse Source 
original commit: 5d386a99ec8121261fd61d61da9e5ac69a217488
This commit is contained in:
Matthew Flatt 2010-11-26 19:13:03 -07:00
parent 6fb5dc58de
commit 77e9dca243
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scribble/eval.rkt
View File

@ -8,6 +8,7 @@
racket/sandbox
racket/promise
racket/string
file/convertible
(for-syntax racket/base))
(provide interaction
@ -38,6 +39,8 @@
(define maxlen 60)
(define-namespace-anchor anchor)
(namespace-require 'racket/base)
(namespace-require '(for-syntax racket/base))
@ -270,7 +273,12 @@
(parameterize ([sandbox-output 'string]
[sandbox-error-output 'string]
[sandbox-propagate-breaks #f])
(make-evaluator '(begin))))))
(let ([e (make-evaluator '(begin))])
(let ([ns (namespace-anchor->namespace anchor)])
(call-in-sandbox-context e
(lambda ()
(namespace-attach-module ns 'file/convertible))))
e)))))
(define (make-base-eval-factory mod-paths)
(let ([ns (delay (let ([ns (make-base-empty-namespace)])

4
collects/scribble/racket.rkt
View File

@ -8,6 +8,7 @@
mzlib/for
syntax/modresolve
syntax/modcode
file/convertible
(for-syntax racket/base))
(provide define-code
@ -215,7 +216,8 @@
quote-depth)])
(if (or (element? (syntax-e c))
(delayed-element? (syntax-e c))
(part-relative-element? (syntax-e c)))
(part-relative-element? (syntax-e c))
(convertible? (syntax-e c)))
(out (syntax-e c) #f)
(out (if (and (identifier? c)
color?