Files
RustAst/examples/optimizer_collision_repro.myc
T
2026-02-25 13:44:08 +01:00

11 lines
175 B
Plaintext

(do
(macro wrap [f] `(fn [x] (~f x)))
(def add1 (fn [x] (+ x 1)))
(def add2 (fn [x] (+ x 2)))
(def w1 (wrap add1))
(def w2 (wrap add2))
(w1 (w2 10)))