16 lines
405 B
Scheme
16 lines
405 B
Scheme
#lang scheme/base
|
|
|
|
(require (for-syntax scheme/base))
|
|
|
|
(provide define-provide/doc-transformer
|
|
(for-syntax
|
|
provide/doc-transformer?
|
|
provide/doc-transformer-proc))
|
|
|
|
(begin-for-syntax
|
|
(define-struct provide/doc-transformer (proc) #:omit-define-syntaxes))
|
|
|
|
(define-syntax-rule (define-provide/doc-transformer id rhs)
|
|
(define-syntax id
|
|
(make-provide/doc-transformer rhs)))
|