DSL support
This commit is contained in:
parent
95bdd892f6
commit
2a6393f88b
|
@ -0,0 +1,12 @@
|
|||
#lang racket/base
|
||||
|
||||
(require (for-syntax racket/base))
|
||||
(provide define&provide-dsl-helper-syntaxes)
|
||||
|
||||
(define (illegal-use id context stx)
|
||||
(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))
|
||||
...))
|
Loading…
Reference in New Issue