Correct merge from test.

This commit is contained in:
C. Guy Yarvin 2015-05-28 12:28:12 -07:00
parent 82339474c7
commit 2b9aafc94e

View File

@ -113,9 +113,9 @@
++ from-kiln ++ from-kiln
=- [wrap=- *kiln-work] =- [wrap=- *kiln-work]
|* fun=_=>(*kiln-work |=(* abet)) |* fun=_=>(*kiln-work |=(* abet))
|= [from _+<.fun] |= _+<.fun
=. +>.fun (kiln-work [hid +<-] (able %kiln)) =. +>.fun (kiln-work hid (able %kiln))
(ably (fun +<+)) (ably (fun +<))
:: ::
++ poke-kiln-cp (wrap poke-cp):from-kiln ++ poke-kiln-cp (wrap poke-cp):from-kiln
++ poke-kiln-rm (wrap poke-rm):from-kiln ++ poke-kiln-rm (wrap poke-rm):from-kiln