1;;----------------------------------------------------------------------
2;; mzscheme: provide everything
3
4(module mzscheme '#%kernel
5  (#%require racket/private/more-scheme
6             (all-except racket/private/misc
7			 collection-path
8			 collection-file-path)
9             racket/private/letstx-scheme
10             racket/private/stxcase-scheme
11             racket/private/stx
12             racket/private/qqstx
13             racket/private/define
14             mzscheme/private/stxmz-body
15             mzscheme/private/old-ds
16             mzscheme/private/old-rp
17             mzscheme/private/old-if
18             mzscheme/private/old-procs
19             racket/private/map ; shadows #%kernel bindings
20             racket/private/kernstruct
21             racket/private/promise
22             racket/private/cert
23             (only racket/private/cond old-cond)
24             ;; shadows #%kernel bindings:
25             (only racket/private/list
26                   assq assv assoc reverse)
27             racket/private/member
28             racket/tcp
29             racket/udp
30             '#%builtin) ; so it's attached
31
32  (#%provide require require-for-syntax require-for-template require-for-label
33             provide provide-for-syntax provide-for-label
34             (all-from-except racket/private/more-scheme case old-case
35                              log-fatal log-error log-warning log-info log-debug
36                              hash-update hash-update!)
37             (rename old-case case)
38             (all-from racket/private/misc)
39             collection-path
40             collection-file-path
41             (all-from-except racket/private/stxcase-scheme _ datum datum-case with-datum)
42             (all-from-except racket/private/letstx-scheme
43                              -define -define-syntax -define-struct
44                              cond old-cond else =>)
45             (rename old-cond cond)
46             define-struct let-struct
47             identifier? ;; from racket/private/stx
48             (all-from racket/private/cert)
49             (all-from-except racket/private/qqstx quasidatum undatum undatum-splicing)
50             (all-from racket/private/define)
51             (all-from racket/private/kernstruct)
52             force delay promise?
53             (all-from-except '#%kernel #%module-begin #%datum
54                              if make-empty-namespace
55                              syntax->datum datum->syntax
56                              free-identifier=?
57                              free-transformer-identifier=?
58                              free-template-identifier=?
59                              free-label-identifier=?
60                              vector-copy!
61                              thread-send
62                              thread-receive
63                              thread-try-receive
64                              thread-receive-evt
65                              make-hash make-immutable-hash make-weak-hash
66                              make-hasheq make-immutable-hasheq make-weak-hasheq
67                              hash? hash-eq? hash-weak?
68                              hash-ref hash-set! hash-set
69                              hash-remove! hash-remove
70                              hash-copy hash-count
71                              hash-map hash-for-each
72                              hash-iterate-first hash-iterate-next
73                              hash-iterate-value hash-iterate-key
74                              log-message log-level? make-logger logger? current-logger logger-name
75                              make-log-receiver log-receiver?
76                              prop:incomplete-arity)
77             (rename syntax->datum syntax-object->datum)
78             (rename datum->syntax datum->syntax-object)
79             (rename free-identifier=? module-identifier=?)
80             (rename free-transformer-identifier=? module-transformer-identifier=?)
81             (rename free-template-identifier=? module-template-identifier=?)
82             (rename free-label-identifier=? module-label-identifier=?)
83             (rename free-identifier=?* free-identifier=?)
84             make-hash-table hash-table? make-immutable-hash-table
85             (rename hash-ref hash-table-get)
86             (rename hash-set! hash-table-put!)
87             (rename hash-remove! hash-table-remove!)
88             (rename hash-count hash-table-count)
89             (rename hash-copy hash-table-copy)
90             (rename hash-map hash-table-map)
91             (rename hash-for-each hash-table-for-each)
92             (rename hash-iterate-first hash-table-iterate-first)
93             (rename hash-iterate-next hash-table-iterate-next)
94             (rename hash-iterate-value hash-table-iterate-value)
95             (rename hash-iterate-key hash-table-iterate-key)
96             namespace-transformer-require
97             transcript-on transcript-off
98             (rename cleanse-path expand-path)
99             (rename if* if)
100             (rename list list-immutable)
101             make-namespace
102             #%top-interaction
103             map for-each andmap ormap
104             assq assv assoc reverse memq memv member
105             (rename old-datum #%datum)
106             (rename mzscheme-in-stx-module-begin #%module-begin)
107             (rename #%module-begin #%plain-module-begin)
108             (rename lambda #%plain-lambda)
109             (rename #%app #%plain-app)
110	     (all-from racket/tcp)
111             (all-from racket/udp)))
112