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
=- [wrap=- *kiln-work]
|* fun=_=>(*kiln-work |=(* abet))
|= [from _+<.fun]
=. +>.fun (kiln-work [hid +<-] (able %kiln))
(ably (fun +<+))
|= _+<.fun
=. +>.fun (kiln-work hid (able %kiln))
(ably (fun +<))
::
++ poke-kiln-cp (wrap poke-cp):from-kiln
++ poke-kiln-rm (wrap poke-rm):from-kiln