Open stchang opened 9 years ago
#lang whalesong (define-syntax-rule (my-define (f x ...) e) (define (f x ...) e)) (my-define (g x) x)
=> my-define: use does not match pattern: (my-define (f x ...) e) in: (my-define (g x) x)
my-define: use does not match pattern: (my-define (f x ...) e) in: (my-define (g x) x)
This is actually because the ellipsis identifier isn't provided for-syntax by whalesong/base, which it should be. Adding a (require (for-syntax racket/private/ellipses)) makes everything work properly.
for-syntax
whalesong/base
(require (for-syntax racket/private/ellipses))
=>
my-define: use does not match pattern: (my-define (f x ...) e) in: (my-define (g x) x)