clean up library dependencies in "unstable" collection

collects/unstable/bytes.rkt

@@ -1,5 +1,6 @@
-#lang racket
-(require racket/serialize)
+#lang racket/base
+(require racket/contract
+         racket/serialize)
 
 (provide/contract
  [read/bytes (bytes? . -> . serializable?)]

collects/unstable/debug.rkt

@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 
 (provide debug
          dprintf
@@ -20,11 +20,12 @@
          parameterize/debug)
 
 (require racket/block
+         racket/match
          unstable/pretty
          unstable/srcloc
          unstable/location
          unstable/syntax
-         (for-syntax racket/match syntax/parse unstable/syntax))
+         (for-syntax racket/base racket/match syntax/parse unstable/syntax))
 
 (define-syntax (let/debug stx)
   (syntax-parse stx

collects/unstable/define.rkt

@@ -1,6 +1,7 @@
-#lang racket
+#lang racket/base
 
-(require (for-syntax racket/list
+(require (for-syntax racket/base
+                     racket/list
                      racket/match
                      syntax/kerncase
                      unstable/syntax))

collects/unstable/gui/slideshow.rkt

@@ -1,9 +1,11 @@
-#lang racket
+#lang racket/base
 
 (require slideshow/base slideshow/pict
+         racket/contract racket/list racket/match
          racket/splicing racket/stxparam racket/gui/base
          racket/block racket/class
-         unstable/define)
+         unstable/define
+         (for-syntax scheme/base))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -304,7 +306,7 @@
  [strike (->* [pict?] [any/c] pict?)]
  [shade (->* [pict?] [any/c #:ratio (real-in 0 1)] pict?)])
 (provide staged slide/staged stage stage-name
-         before at after before/at at/after except
+         before at after before/at at/after
          pict-if pict-cond pict-case pict-match
          pict-combine with-pict-combine)
 

collects/unstable/hash.rkt

@@ -1,6 +1,5 @@
-#lang racket
-
-(require (for-syntax syntax/parse))
+#lang racket/base
+(require racket/contract)
 
 ;; Eli: See comments for `dict-ref/check' and relatives.
 

collects/unstable/markparam.rkt

@@ -1,5 +1,8 @@
-#lang racket
-(require racket/serialize)
+#lang racket/base
+(require racket/serialize
+         racket/function
+         racket/contract
+         (for-syntax racket/base))
 
 (define mark-parameter-first
   (curry continuation-mark-set-first #f))

collects/unstable/path.rkt

@@ -1,10 +1,11 @@
-#lang racket
-(require unstable/list
+#lang racket/base
+(require racket/contract
+         unstable/list
          unstable/contract)
 
 ; explode-path* : path? -> (listof path?)
 (define (explode-path* p)
-  (let loop ([p p] [r empty])
+  (let loop ([p p] [r null])
     (cond 
       [(eq? 'relative p) r]
       [(not p) r]

collects/unstable/planet.rkt

@@ -1,6 +1,6 @@
-#lang racket
+#lang racket/base
 
-(require (for-syntax unstable/planet-syntax)
+(require (for-syntax racket/base unstable/planet-syntax)
          unstable/planet-syntax
          unstable/require)
 

collects/unstable/port.rkt

@@ -1,5 +1,7 @@
-#lang racket
-(require unstable/srcloc)
+#lang racket/base
+(require racket/match
+         racket/contract
+         unstable/srcloc)
 
 #|
 Ryan:

collects/unstable/require.rkt

@@ -1,6 +1,7 @@
-#lang racket
+#lang racket/base
 
-(require (for-syntax racket/match
+(require (for-syntax racket/base
+                     racket/match
                      racket/require-transform
                      racket/provide-transform
                      syntax/parse

collects/unstable/sandbox.rkt

@@ -1,6 +1,7 @@
-#lang racket
+#lang racket/base
 
-(require racket/sandbox)
+(require racket/promise
+         racket/sandbox)
 
 (provide make-trusted-evaluator
          make-trusted-module-evaluator

collects/unstable/scribblings/dirs.scrbl

@@ -84,3 +84,5 @@ replaced by @racketresult[user], and the PLaneT cache is replaced by
 @racketresult[planet].
 
 }
+
+@close-eval[evaluator]

collects/unstable/scribblings/sequence.scrbl

@@ -1,15 +1,18 @@
-#lang scribble/doc
-@(require scribble/base
-          scribble/manual
-          scribble/eval
-	  scribblings/reference/mz
+#lang scribble/manual
+@(require scribble/eval
 	  "utils.rkt"
-         (for-label unstable/sequence
-                    racket/contract
-                    racket/base))
+          (for-label unstable/sequence
+                     racket/contract
+                     racket/base))
 
 @(define the-eval (make-base-eval))
 @(the-eval '(require unstable/sequence))
+@(define-syntax speed
+    (syntax-rules ()
+      [(_ id what)
+       (t "An " (scheme id) " application can provide better performance for "
+          (elem what)
+          " iteration when it appears directly in a " (scheme for) " clause.")]))
 
 @title[#:tag "sequence"]{Sequences}
 

collects/unstable/sexp-diff.rkt

@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 
 ;;; diff-sexp.lisp -- diffs s-expressions based on Levenshtein-like edit distance.
 
@@ -45,6 +45,8 @@
 
 ;;; Code:
 
+(require racket/list)
+
 (provide sexp-diff)
 
 ;; Computes the number of atoms contained in TREE.

collects/unstable/string.rkt

@@ -1,5 +1,6 @@
-#lang racket
-(require racket/serialize)
+#lang racket/base
+(require racket/contract
+         racket/serialize)
 
 (define (read/string str)
   (read (open-input-string str)))

collects/unstable/web.rkt

@@ -1,5 +1,6 @@
-#lang racket
+#lang racket/base
 (require xml
+         racket/contract
          unstable/function
          unstable/text)