a10568fa5e
Also, move `mzlib/sandbox' to "compatibility-lib". original commit: 72c91629893290cce4ea4082b08449b1a6914738
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))
|