bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 4a3d0e82ba74161df1c02a5276e6bae79cf3c5e2
parent 50b3a68191e0dbca03f0e3beb635a542198bb68f
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 10 Jan 2008 19:47:13 +0000

fix bug in deserializer; also change scribble eval to not use sandbox module mode

svn: r8280

original commit: 2d08c177252d8c8e0fdbc9a557857d0ade19c1f8

Diffstat:
M
collects/scribble/eval.ss
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
@@ -209,7 +209,7 @@
                    [sandbox-error-output 'string]
                    [sandbox-eval-limits #f]
                    [sandbox-make-inspector current-inspector])
-      (make-evaluator 'scheme/base)))
+      (make-evaluator '(begin (require scheme/base)))))
       
   (define (do-plain-eval ev s catching-exns?)
     (call-with-values (lambda () 
@@ -223,6 +223,8 @@
                                [(module . _rest)
                                 (syntax->datum s)]
                                [_else s])]
+                            [(bytes? s)
+                             `(begin ,s)]
                             [(string? s)
                              `(begin ,s)]
                             [else s]))))