22 lines
611 B
Scheme
22 lines
611 B
Scheme
#lang scheme/base
|
|
|
|
(provide define-provide-syntax )
|
|
|
|
(require (for-syntax scheme/base
|
|
scheme/provide-transform))
|
|
|
|
(define-for-syntax (make-provide-macro cert proc)
|
|
(make-provide-transformer
|
|
(lambda (stx modes)
|
|
(let* ([i (make-syntax-introducer)]
|
|
[new-stx (cert (i (proc (i stx))) i)])
|
|
(expand-export new-stx modes)))))
|
|
|
|
(define-syntax (define-provide-syntax stx)
|
|
(syntax-case stx ()
|
|
[(_ id proc)
|
|
(symbol? (syntax-e #'id))
|
|
#'(define-syntax id
|
|
(let ([cert (syntax-local-provide-certifier)])
|
|
(make-provide-macro cert proc)))]))
|