18 lines
408 B
Racket
18 lines
408 B
Racket
#lang racket
|
|
|
|
(require polysemy)
|
|
|
|
;(require (poly-in "test-provide.rkt" foo))
|
|
;(poly-require "test-provide.rkt" foo)
|
|
|
|
(require (poly-rename-in "test-provide.rkt"
|
|
[foo identifier-macro baz]
|
|
[bar identifier-macro foo]))
|
|
|
|
(define-poly bar identifier-macro (λ (stx) #'"overridden bar"))
|
|
|
|
foo ;; "originally bar"
|
|
bar ;; "overridden bar"
|
|
baz ;; "originally foo"
|
|
|