12 lines
300 B
Racket
12 lines
300 B
Racket
#lang racket
|
|
|
|
(define-syntax-rule (provide-literals name ...)
|
|
(begin
|
|
(provide name ...)
|
|
(define-syntax (name stx)
|
|
(raise-syntax-error 'name
|
|
"can only be used in some special contexts"
|
|
stx))
|
|
...))
|
|
|
|
(provide-literals mapping node) |