22 lines
648 B
Scheme
22 lines
648 B
Scheme
#lang scheme/base
|
|
|
|
(require (for-syntax scheme/base)
|
|
scribble/manual
|
|
(for-label mzscheme
|
|
(only-in scheme/base exn:fail exn:fail:unsupported exn:fail:contract)))
|
|
|
|
(provide mzlib
|
|
(all-from-out scribble/manual)
|
|
(for-label (all-from-out mzscheme)
|
|
(all-from-out scheme/base)))
|
|
|
|
(define-syntax (mzlib stx)
|
|
(syntax-case stx ()
|
|
[(_ #:mode section name)
|
|
(with-syntax ([lib (string->symbol
|
|
(format "mzlib/~a" (syntax-e #'name)))])
|
|
#'(begin
|
|
(section #:style 'hidden (scheme lib))
|
|
(defmodule lib)))]
|
|
[(_ name) #'(mzlib #:mode section name)]))
|