2015-05-13 00:11:47 +00:00
|
|
|
#lang racket/base
|
|
|
|
|
|
|
|
(require (for-syntax racket/base))
|
|
|
|
(provide define&provide-dsl-helper-syntaxes)
|
|
|
|
|
2015-11-18 19:32:59 +00:00
|
|
|
(define-for-syntax (illegal-use id context stx)
|
2015-05-13 00:11:47 +00:00
|
|
|
(raise-syntax-error #f (format "Illegal use of ~a outside ~a" id context) stx))
|
|
|
|
|
|
|
|
(define-syntax-rule (define&provide-dsl-helper-syntaxes context (identifier ...))
|
|
|
|
(begin (provide identifier ...)
|
|
|
|
(define-syntax (identifier stx) (illegal-use 'identifier context stx))
|
|
|
|
...))
|