diff --git a/examples/optimizer_collision_repro.myc b/examples/optimizer_collision_repro.myc new file mode 100644 index 0000000..89ddb3c --- /dev/null +++ b/examples/optimizer_collision_repro.myc @@ -0,0 +1,10 @@ +(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)))