Prepare the doll.

This commit is contained in:
C. Guy Yarvin 2015-05-08 10:53:28 -07:00
parent b8c3720c28
commit ceb79e045f

View File

@ -274,16 +274,13 @@
(done %blit [bit ~]) (done %blit [bit ~])
:: ::
++ init :: initialize ++ init :: initialize
~& [%dill-init our] ~& [%doll-init our]
=+ myt=(flop (need tem)) =+ myt=(flop (need tem))
=. tem ~ =. tem ~
<<<<<<< HEAD:urb/zod/base/arvo/dill.hoon
=. moz :_(moz [hen %pass / %c %font our %home our %base]) =. moz :_(moz [hen %pass / %c %font our %home our %base])
=. moz :_(moz [hen %pass / %g %show [our [ram ~]] our ~]) :: =. moz :_(moz [hen %pass / %g %show [our [ram ~]] our ~])
======= =. moz :_(moz [hen %pass ~ %b %conf [[our ram] %load our %base]])
=. moz :_(moz [hen %pass ~ %b %conf [[our ram] %load our %main]])
=. moz :_(moz [hen %pass ~ %b %deal [our our] ram %peer ~]) =. moz :_(moz [hen %pass ~ %b %deal [our our] ram %peer ~])
>>>>>>> newgall^:urb/zod/arvo/dill.hoon
|- ^+ +> |- ^+ +>
?~ myt +> ?~ myt +>
$(myt t.myt, +> (send i.myt)) $(myt t.myt, +> (send i.myt))