Create optimizer_collision_repro.myc
This commit is contained in:
@@ -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)))
|
||||||
Reference in New Issue
Block a user