12 lines
307 B
Scheme
12 lines
307 B
Scheme
(module define-config mzscheme
|
|
|
|
(provide define-parameters)
|
|
|
|
(define-syntax (define-parameters stx)
|
|
(syntax-case stx ()
|
|
[(_ (name val) ...)
|
|
(andmap identifier? (syntax-e #'(name ...)))
|
|
#'(begin
|
|
(provide name ...)
|
|
(define name (make-parameter val)) ...)])))
|