From 71fd650e3cf041f9cc35e5986a4090a9e07db1c3 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Fri, 17 Jun 2011 15:15:01 -0400
Subject: [PATCH] These changes break with bad sandboxes.

Revert "Fix interface."
Revert "Add more scribble forms that evaluate code and display the results."

This reverts commit a621eaf04151f4bf830bfe3fca5c60c6dd72fcae.
This reverts commit 7e9dbded4c89c5e95945e2f91653fab0b58a0390.

original commit: 8f092e83309b0b376feb1fc1ad13914990137b50
---
 collects/scribble/eval.rkt               | 33 ------------------------
 collects/scribblings/scribble/eval.scrbl | 15 -----------
 2 files changed, 48 deletions(-)

diff --git a/collects/scribble/eval.rkt b/collects/scribble/eval.rkt
index 5777333a..1080c0c8 100644
--- a/collects/scribble/eval.rkt
+++ b/collects/scribble/eval.rkt
@@ -9,11 +9,8 @@
          interaction0
          interaction-eval
          interaction-eval-show
-         racketblock+interaction
          racketblock+eval (rename-out [racketblock+eval schemeblock+eval])
-         racketblock0+interaction
          racketblock0+eval
-         racketmod+interaction
          racketmod+eval (rename-out [racketmod+eval schememod+eval])
          def+int
          defs+int
@@ -437,16 +434,6 @@
   (syntax-case stx ()
     [(H e ...) (syntax/loc stx (-interaction H e ...))]))
 
-(define-syntax racketblock+interaction
-  (syntax-rules ()
-    [(_ #:eval ev e ...)
-     (let ([eva ev])
-       (#%expression
-        (begin (interaction #:eval eva e) ...
-               (racketblock name e ...))))]
-    [(_ name e ...)
-     (racketblock+interaction #:eval (make-base-eval) name e ...)]))
-
 (define-syntax racketblock+eval
   (syntax-rules ()
     [(_ #:eval ev e ...)
@@ -457,16 +444,6 @@
     [(_ e ...)
      (racketblock+eval #:eval (make-base-eval) e ...)]))
 
-(define-syntax racketblock0+interaction
-  (syntax-rules ()
-    [(_ #:eval ev e ...)
-     (let ([eva ev])
-       (#%expression
-        (begin (interaction #:eval eva e) ...
-               (racketblock0 name e ...))))]
-    [(_ name e ...)
-     (racketblock0+interaction #:eval (make-base-eval) name e ...)]))
-
 (define-syntax racketblock0+eval
   (syntax-rules ()
     [(_ #:eval ev e ...)
@@ -476,16 +453,6 @@
     [(_ e ...)
      (racketblock0+eval #:eval (make-base-eval) e ...)]))
 
-(define-syntax racketmod+interaction
-  (syntax-rules ()
-    [(_ #:eval ev name e ...)
-     (let ([eva ev])
-       (#%expression
-        (begin (interaction #:eval eva e) ...
-               (racketmod name e ...))))]
-    [(_ name e ...)
-     (racketmod+interaction #:eval (make-base-eval) name e ...)]))
-
 (define-syntax racketmod+eval
   (syntax-rules ()
     [(_ #:eval ev name e ...)
diff --git a/collects/scribblings/scribble/eval.scrbl b/collects/scribblings/scribble/eval.scrbl
index aaf38b6d..a71ea382 100644
--- a/collects/scribblings/scribble/eval.scrbl
+++ b/collects/scribblings/scribble/eval.scrbl
@@ -84,33 +84,18 @@ Like @racket[interaction-eval], but produces an element representing
 the printed form of the evaluation result.}
 
 
-@defform*[[(racketblock+interaction datum ...)
-           (racketblock+interaction #:eval eval-expr datum ...)]]{
-
-Combines @racket[racketblock] and @racket[interaction].}
-
 @defform*[[(racketblock+eval datum ...)
            (racketblock+eval #:eval eval-expr datum ...)]]{
 
 Combines @racket[racketblock] and @racket[interaction-eval].}
 
 
-@defform*[[(racketblock0+interaction datum ...)
-           (racketblock0+interaction #:eval eval-expr datum ...)]]{
-
-Combines @racket[racketblock0] and @racket[interaction].}
-
 @defform*[[(racketblock0+eval datum ...)
            (racketblock0+eval #:eval eval-expr datum ...)]]{
 
 Combines @racket[racketblock0] and @racket[interaction-eval].}
 
 
-@defform*[[(racketmod+interaction name datum ...)
-           (racketmod+interaction #:eval eval-expr name datum ...)]]{
-
-Combines @racket[racketmod] and @racket[interaction].}
-
 @defform*[[(racketmod+eval name datum ...)
            (racketmod+eval #:eval eval-expr name datum ...)]]{