b0043b013b
Remaining are: - parts of unit200 that Matthew plans to remove. - the `mzscheme` implementation itself. The implementation of `mzscheme` has been moved to the `mzscheme` collection (from the `racket` and `scheme` collections). The `scheme/mzscheme` language, which was undocumented, has been removed. This is slightly backwards-incompatible, because the `xform` handling of precompiled headers now evaluates code in a `racket/base`-like namespace, instead of in a `mzscheme`-like namespace. original commit: d54c1e4e4942c26dcbaaebcc43d5c92d507a8112
37 lines
1.1 KiB
Racket
37 lines
1.1 KiB
Racket
;;----------------------------------------------------------------------
|
|
;; mzscheme's `#%module-begin'
|
|
|
|
(module stxmz-body '#%kernel
|
|
;; These could probably change to just be `(require racket/base)`.
|
|
(#%require racket/private/define
|
|
(for-syntax '#%kernel racket/private/stx))
|
|
|
|
;; So that expansions print the way the Racket programmer expects:
|
|
(#%require (rename '#%kernel #%plain-module-begin #%module-begin))
|
|
|
|
(define-syntax mzscheme-in-stx-module-begin
|
|
(lambda (stx)
|
|
(if (stx-pair? stx)
|
|
(datum->syntax
|
|
(quote-syntax here)
|
|
(list* (quote-syntax #%plain-module-begin)
|
|
(datum->syntax
|
|
stx
|
|
(list (quote-syntax #%require) '(for-syntax mzscheme)))
|
|
(stx-cdr stx))
|
|
stx)
|
|
(raise-syntax-error #f "bad syntax" stx))))
|
|
|
|
(define-syntax #%top-interaction
|
|
(lambda (stx)
|
|
(if (eq? 'top-level (syntax-local-context))
|
|
'ok
|
|
(raise-syntax-error
|
|
#f
|
|
"not at top level"
|
|
stx))
|
|
(datum->syntax stx (stx-cdr stx) stx stx)))
|
|
|
|
(#%provide mzscheme-in-stx-module-begin
|
|
#%top-interaction))
|