Moved unstable/cce/sandbox to unstable/sandbox.

collects/unstable/cce/reference/eval.ss

@@ -1,6 +1,6 @@
 #lang scheme
 
-(require scheme/sandbox unstable/syntax "../sandbox.ss")
+(require scheme/sandbox unstable/syntax unstable/sandbox)
 
 (define (evaluator . require-specs)
   (let* ([ev (make-scribble-evaluator 'scheme)])

collects/unstable/cce/reference/manual.scrbl

@@ -27,7 +27,6 @@
 
 @include-section["debug.scrbl"]
 
-@include-section["sandbox.scrbl"]
 @include-section["scribble.scrbl"]
 
 @include-section["gui.scrbl"]

collects/unstable/cce/reference/scribble.scrbl

@@ -15,7 +15,7 @@ provides @scheme[this-package-version-symbol] from
 @schememodname[unstable/cce/planet], @scheme[this-package-in] from
 @schememodname[unstable/cce/require-provide], and
 @scheme[make-scribble-evaluator] and @scheme[make-scribble-module-evaluator]
-from @schememodname[unstable/cce/sandbox].
+from @schememodname[unstable/sandbox].
 
 @defform*[[
 (defmodule/this-package)

collects/unstable/cce/scribble.ss

@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(require scribble/manual "sandbox.ss" "planet.ss"
+(require scribble/manual unstable/sandbox "planet.ss"
          (for-syntax scheme/base "syntax.ss"))
 
 (define-for-syntax (make-planet-paths stx ids)

collects/unstable/cce/test/test-main.ss

@@ -9,7 +9,6 @@
          "test-planet.ss"
          "test-port.ss"
          "test-require-provide.ss"
-         "test-sandbox.ss"
          "test-scribble.ss"
          "test-set.ss"
          "test-syntax.ss")
@@ -24,7 +23,6 @@
    planet-suite
    port-suite
    require-provide-suite
-   sandbox-suite
    scribble-suite
    set-suite
    syntax-suite))

collects/unstable/cce/test/test-sandbox.ss

@@ -1,9 +0,0 @@
-#lang scheme
-
-(require "checks.ss"
-         "../sandbox.ss")
-
-(provide sandbox-suite)
-
-(define sandbox-suite
-  (test-suite "sandbox.ss"))

collects/unstable/sandbox.rkt

@@ -1,7 +1,6 @@
-#lang scheme
+#lang racket
 
-(require scheme/sandbox
+(require racket/sandbox)
-         "define.ss")
 
 (provide make-trusted-evaluator
          make-trusted-module-evaluator
@@ -9,16 +8,6 @@
          make-scribble-module-evaluator
          make-sandbox-namespace-specs)
 
-;; Needed for legacy versions of scheme/sandbox
-(define-if-unbound (call-with-trusted-sandbox-configuration thunk)
-  (parameterize ([sandbox-propagate-breaks    #t]
-                 [sandbox-override-collection-paths '()]
-                 [sandbox-security-guard      (current-security-guard)]
-                 [sandbox-make-inspector      current-inspector]
-                 [sandbox-make-logger         current-logger]
-                 [sandbox-eval-limits         #f])
-    (thunk)))
-
 (define make-trusted-evaluator
   (make-keyword-procedure
    (lambda (keys vals . args)

collects/unstable/scribblings/sandbox.scrbl

@@ -1,13 +1,10 @@
-#lang scribble/doc
+#lang scribble/manual
-@(require scribble/manual
+@(require scribble/eval "utils.rkt"
-          scribble/eval
+          (for-label racket racket/sandbox unstable/sandbox))
-          "../scribble.ss"
-          "eval.ss")
-@(require (for-label scheme scheme/sandbox unstable/cce/sandbox))
 
-@title[#:style 'quiet #:tag "cce-sandbox"]{Sandboxed Evaluation}
+@title{Sandboxed Evaluation}
 
-@defmodule[unstable/cce/sandbox]
+@defmodule[unstable/sandbox]
 
 This module provides tools for sandboxed evaluation.
 
@@ -28,9 +25,7 @@ This module provides tools for sandboxed evaluation.
 )]{
 These procedures wrap calls to @scheme[make-evaluator] and
 @scheme[make-module-evaluator], respectively, with
-@scheme[call-with-trusted-sandbox-configuration] (introduced in PLT 4.1.3.6).
+@scheme[call-with-trusted-sandbox-configuration].
-In older versions of PLT Scheme, they simulate the trusted configuration as
-closely as possible.
 }
 
 @deftogether[(

collects/unstable/scribblings/unstable.scrbl

@@ -83,6 +83,7 @@ Keep documentation and tests up to date.
 @include-section["pretty.scrbl"]
 @include-section["queue.scrbl"]
 @include-section["regexp.scrbl"]
+@include-section["sandbox.scrbl"]
 @include-section["srcloc.scrbl"]
 @include-section["string.scrbl"]
 @include-section["struct.scrbl"]