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