trigger dill init on merge completion

This commit is contained in:
Philip Monk 2019-02-22 14:11:53 -08:00
parent 99b6111597
commit e319df9e8d
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -298,10 +298,15 @@
++ init :: initialize
~& [%dill-init our ram]
^+ .
=. moz :_(moz [hen %pass / %c %merg %home our %base da+now %init])
.
::
++ mere :: continue init
~& [%dill-mere our ram]
^+ .
=/ myt (flop (need tem))
=/ can (clan:title our)
=. tem ~
=. moz :_(moz [hen %pass / %c %merg %home our %base da+now %init])
=. moz :_(moz [hen %pass ~ %g %conf [[our ram] %load our %home]])
=. +> (sync %home our %base)
=. +> ?: ?=(?($czar $pawn) can) +>
@ -391,11 +396,6 @@
::
{$a $send *}
+>(moz :_(moz [hen %give +.sih]))
::
{$c $mere *}
?: ?=(%& -.p.sih)
+>.$
(mean >%dill-mere-fail< >p.p.p.sih< q.p.p.sih)
::
{$g $onto *}
:: ~& [%take-gall-onto +>.sih]
@ -420,6 +420,11 @@
::
{$c $writ *}
init
::
{$c $mere *}
?: ?=(%& -.p.sih)
mere
(mean >%dill-mere-fail< >p.p.p.sih< q.p.p.sih)
::
{$c $mack *}
?~ p.sih +>.$