132 lines
5.8 KiB
Racket
132 lines
5.8 KiB
Racket
#lang racket/base
|
|
|
|
(require dotlambda/implementation
|
|
(for-meta -10 typed/racket/base)
|
|
(for-meta -9 typed/racket/base)
|
|
(for-meta -8 typed/racket/base)
|
|
(for-meta -7 typed/racket/base)
|
|
(for-meta -6 typed/racket/base)
|
|
(for-meta -5 typed/racket/base)
|
|
(for-meta -4 typed/racket/base)
|
|
(for-meta -3 typed/racket/base)
|
|
(for-meta -2 typed/racket/base)
|
|
(for-meta -1 typed/racket/base)
|
|
(for-meta 0 typed/racket/base)
|
|
(for-meta 1 typed/racket/base)
|
|
(for-meta 2 typed/racket/base)
|
|
(for-meta 3 typed/racket/base)
|
|
(for-meta 4 typed/racket/base)
|
|
(for-meta 5 typed/racket/base)
|
|
(for-meta 6 typed/racket/base)
|
|
(for-meta 7 typed/racket/base)
|
|
(for-meta 8 typed/racket/base)
|
|
(for-meta 9 typed/racket/base)
|
|
(for-meta 10 typed/racket/base)
|
|
(only-in (for-meta -10 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -9 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -8 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -7 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -6 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -5 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -4 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -3 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -2 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta -1 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 0 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 1 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 2 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 3 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 4 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 5 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 6 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 7 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 8 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 9 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax])
|
|
(only-in (for-meta 10 racket/base)
|
|
[make-rename-transformer -make-rename-transformer]
|
|
[#%plain-app -#%plain-app]
|
|
[syntax -syntax]))
|
|
|
|
(make-#%module-begin new-#%module-begin
|
|
#%module-begin
|
|
λ
|
|
define-syntax
|
|
-make-rename-transformer
|
|
-#%plain-app
|
|
-syntax)
|
|
(make-#%top-interaction new-#%top-interaction
|
|
#%top-interaction
|
|
λ
|
|
define-syntax
|
|
-make-rename-transformer
|
|
-#%plain-app
|
|
-syntax)
|
|
|
|
(provide (except-out (all-from-out typed/racket/base)
|
|
#%module-begin
|
|
#%top-interaction)
|
|
(except-out (all-from-out dotlambda/implementation)
|
|
make-#%module-begin
|
|
make-#%top-interaction)
|
|
(rename-out [new-#%module-begin #%module-begin]
|
|
[new-#%top-interaction #%top-interaction])) |