test-provide-b.rkt (374B)
1 #lang racket 2 3 (require polysemy) 4 5 (provide (poly-out [foo match-expander] 6 [bar match-expander identifier-macro])) 7 8 (define-poly foo match-expander (λ (stx) #'"originally foo match-expander")) 9 10 (define-poly bar) 11 (define-poly bar match-expander (λ (stx) #'"originally bar match-expander")) 12 (define-poly bar identifier-macro (λ (stx) #'"originally bar"))