From 4a3d0e82ba74161df1c02a5276e6bae79cf3c5e2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Jan 2008 19:47:13 +0000
Subject: [PATCH] fix bug in deserializer; also change scribble eval to not use
 sandbox module mode

svn: r8280

original commit: 2d08c177252d8c8e0fdbc9a557857d0ade19c1f8
---
 collects/scribble/eval.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
index dcb093ed..5cec7e40 100644
--- 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]))))