f71157285c
Make it available outside so in the future I can use it in the PL class code. original commit: 5998ecc56430c34cabb13519a92fe755eff145cd
35 lines
1.2 KiB
Racket
35 lines
1.2 KiB
Racket
#lang racket/base
|
|
|
|
(require (for-syntax racket/base
|
|
;; these requires are needed since their code
|
|
;; appears in the residual program
|
|
"typecheck/renamer.rkt" "types/type-table.rkt")
|
|
"private/base-special-env.rkt")
|
|
|
|
(provide (rename-out [module-begin #%module-begin]
|
|
[top-interaction #%top-interaction]
|
|
[#%plain-lambda lambda]
|
|
[#%app #%app]
|
|
[require require])
|
|
with-type
|
|
(for-syntax do-standard-inits))
|
|
|
|
(define-for-syntax (do-standard-inits)
|
|
(initialize-special)
|
|
((dynamic-require 'typed-scheme/private/base-structs 'initialize-structs))
|
|
((dynamic-require 'typed-scheme/private/base-env-indexing 'initialize-indexing))
|
|
((dynamic-require 'typed-scheme/private/base-env 'init))
|
|
((dynamic-require 'typed-scheme/private/base-env-numeric 'init)))
|
|
|
|
(define-syntax (module-begin stx)
|
|
(do-standard-inits)
|
|
((dynamic-require 'typed-scheme/core 'mb-core) stx))
|
|
|
|
(define-syntax (top-interaction stx)
|
|
(do-standard-inits)
|
|
((dynamic-require 'typed-scheme/core 'ti-core) stx))
|
|
|
|
(define-syntax (with-type stx)
|
|
(do-standard-inits)
|
|
((dynamic-require 'typed-scheme/core 'wt-core) stx))
|