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