13 lines
347 B
Scheme
13 lines
347 B
Scheme
(module define-config racket/base
|
|
(require (for-syntax racket/base))
|
|
|
|
(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)) ...)])))
|