403aaac7d4
The libraries moved were: - mzlib/control => racket/control - mzlib/date => racket/date - mzlib/deflate => file/gzip - mzlib/inflate => file/gunzip - mzlib/port => racket/port - mzlib/process => racket/system - mzlib/runtime-path => racket/runtime-path - mzlib/shared => racket/shared - mzlib/unit => racket/unit - mzlib/unit-exptime => racket/unit-exptime - mzlib/zip => file/zip The old modules in mzlib are now pointers to the new modules. These are all modules that were already redirected in the documentation.
38 lines
1.3 KiB
Racket
38 lines
1.3 KiB
Racket
#lang scheme/base
|
|
|
|
(require scheme/unit
|
|
scheme/contract
|
|
(for-syntax scheme/base
|
|
racket/private/unit-compiletime
|
|
racket/private/unit-syntax))
|
|
|
|
(provide (rename-out [module-begin #%module-begin])
|
|
(except-out (all-from-out scheme/base) #%module-begin)
|
|
(all-from-out scheme/unit)
|
|
(all-from-out scheme/contract)
|
|
(for-syntax (all-from-out scheme/base)))
|
|
|
|
(define-for-syntax (make-name s)
|
|
(string->symbol
|
|
(string-append (regexp-replace "-sig$" (symbol->string s) "")
|
|
"^")))
|
|
|
|
;; Recognizes scheme require forms.
|
|
(define-for-syntax split-scheme-requires
|
|
(split-requires* (list #'require #'#%require)))
|
|
|
|
(define-syntax (module-begin stx)
|
|
(parameterize ((error-syntax stx))
|
|
(with-syntax ((name (make-name (syntax-property stx 'enclosing-module-name))))
|
|
(syntax-case stx ()
|
|
((_ . x)
|
|
(with-syntax ((((reqs ...) . (body ...))
|
|
(split-scheme-requires (checked-syntax->list #'x))))
|
|
(datum->syntax
|
|
stx
|
|
(syntax-e #'(#%module-begin
|
|
reqs ...
|
|
(provide name)
|
|
(define-signature name (body ...))))
|
|
stx)))))))
|