diff --git a/collects/unstable/cce/info.ss b/collects/unstable/cce/info.ss deleted file mode 100644 index b1aa89f431..0000000000 --- a/collects/unstable/cce/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define name "Carl Eastlund's Scheme Utilities") diff --git a/collects/unstable/cce/reference/eval.ss b/collects/unstable/cce/reference/eval.ss deleted file mode 100644 index f1799f2b9a..0000000000 --- a/collects/unstable/cce/reference/eval.ss +++ /dev/null @@ -1,10 +0,0 @@ -#lang scheme - -(require scheme/sandbox unstable/syntax unstable/sandbox) - -(define (evaluator . require-specs) - (let* ([ev (make-scribble-evaluator 'scheme)]) - (ev `(require ,@require-specs)) - ev)) - -(provide evaluator) diff --git a/collects/unstable/cce/reference/manual.scrbl b/collects/unstable/cce/reference/manual.scrbl deleted file mode 100644 index 28805e5d6e..0000000000 --- a/collects/unstable/cce/reference/manual.scrbl +++ /dev/null @@ -1,11 +0,0 @@ -#lang scribble/doc -@(require scribble/manual - unstable/scribble - "../../scribblings/utils.rkt" - (for-label scheme/base)) - -@title[#:style '(toc)]{@bold{Carl Eastlund's Scheme Utilities}} - -@unstable[@author+email["Carl Eastlund" "cce@racket-lang.org"]] - -@table-of-contents[] diff --git a/collects/unstable/cce/test/checks.ss b/collects/unstable/cce/test/checks.ss deleted file mode 100644 index 63e0fdf79e..0000000000 --- a/collects/unstable/cce/test/checks.ss +++ /dev/null @@ -1,79 +0,0 @@ -#lang scheme - -(require scheme/pretty - srfi/67 - unstable/require) - -(require/provide schemeunit schemeunit/text-ui) - -(provide (all-defined-out)) - -(define-syntax test - (syntax-rules () - [(_ term) (test-case (pretty-format 'term) term)] - [(_ term ...) (test-case (pretty-format '(begin term ...)) term ...)])) - -(define-syntax-rule (test-ok body ...) - (test (check-ok body ...))) - -(define-syntax-rule (test-bad body ...) - (test (check-bad body ...))) - -(define-syntax-rule (with/c c e) - (let () (with-contract value ([value c]) (define value e)) value)) - -(define-syntax-rule (check-ok body ...) - (check-not-exn (lambda () body ...))) - -(define-syntax-rule (check-bad body ...) - (check-exn exn:fail:contract? (lambda () body ...))) - -(define-check (check-not compare actual expected) - (with-check-info* - (list (make-check-info 'comparison compare) - (make-check-actual actual) - (make-check-expected expected)) - (lambda () - (let* ([result (compare actual expected)]) - (when result - (with-check-info* - (list (make-check-info 'result result)) - (lambda () (fail-check)))))))) - -(define (check/sort actual expected - #:< [<< (