8 lines
262 B
Racket
8 lines
262 B
Racket
(#rx"missing ellipses"
|
|
([id-no-ellipsis x]) ([ellipsis ...])
|
|
(term-let ([(id-no-ellipsis ellipsis) '(a b c)]) (term id-no-ellipsis)))
|
|
|
|
(#rx"too few ellipses"
|
|
([bound x]) ([bind x])
|
|
(... (term-let ([((bind ...) ...) '()])
|
|
(term (bound ...))))) |