racket/collects/scheme/private/ellipses.ss
Matthew Flatt 39cedb62ed v3.99.0.2
svn: r7706
2007-11-13 12:40:00 +00:00

13 lines
324 B
Scheme

(module ellipses '#%kernel
(#%require (for-syntax '#%kernel))
(#%provide ... _)
(define-syntaxes (...)
(lambda (stx)
(raise-syntax-error #f "ellipses not allowed as an expression" stx)))
(define-syntaxes (_)
(lambda (stx)
(raise-syntax-error #f "wildcard not allowed as an expression" stx))))