main.rkt (1685B)
1 #lang racket/base 2 3 (require dotlambda/implementation 4 (for-meta -10 racket/base) 5 (for-meta -9 racket/base) 6 (for-meta -8 racket/base) 7 (for-meta -7 racket/base) 8 (for-meta -6 racket/base) 9 (for-meta -5 racket/base) 10 (for-meta -4 racket/base) 11 (for-meta -3 racket/base) 12 (for-meta -2 racket/base) 13 (for-meta -1 racket/base) 14 (for-meta 0 racket/base) 15 (for-meta 1 racket/base) 16 (for-meta 2 racket/base) 17 (for-meta 3 racket/base) 18 (for-meta 4 racket/base) 19 (for-meta 5 racket/base) 20 (for-meta 6 racket/base) 21 (for-meta 7 racket/base) 22 (for-meta 8 racket/base) 23 (for-meta 9 racket/base) 24 (for-meta 10 racket/base)) 25 26 (make-#%module-begin new-#%module-begin 27 #%module-begin 28 λ 29 define-syntax 30 make-rename-transformer 31 #%plain-app 32 syntax) 33 (make-#%top-interaction new-#%top-interaction 34 #%top-interaction 35 λ 36 define-syntax 37 make-rename-transformer 38 #%plain-app 39 syntax) 40 41 (provide (except-out (all-from-out racket/base) 42 #%module-begin 43 #%top-interaction) 44 (except-out (all-from-out dotlambda/implementation) 45 make-#%module-begin 46 make-#%top-interaction) 47 (rename-out [new-#%module-begin #%module-begin] 48 [new-#%top-interaction #%top-interaction]))