ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

dep-missed drop

Browse Source
This commit is contained in:
Anton Dyudin 2015-05-01 12:03:02 -07:00
parent 8eba67cf03
commit 4c2e39b74b
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
base/arvo/ford.hoon
View File

@ -301,19 +301,20 @@
|= dep=@uvH
?~ dep
~&(dep-empty/hen +>.$)
=+ dap=~|(dep-missed/dep (~(got by deh.bay) dep))
?- -.dap
=+ dap=(~(get by deh.bay) dep)
?~ dap ~&(dep-missed/dep +>.$) :: XX ~| !!
?- -.u.dap
%done +>.$(mow :_(mow [hen %give %news ~]))
%sent
=. p.dap (~(put in p.dap) hen)
+>.$(deh.bay (~(put by deh.bay) dep dap))
=. p.u.dap (~(put in p.u.dap) hen)
+>.$(deh.bay (~(put by deh.bay) dep u.dap))
%init
%_ +>.$
deh.bay
(~(put by deh.bay) dep [%sent [hen ~ ~] p.dap])
(~(put by deh.bay) dep [%sent [hen ~ ~] p.u.dap])
::
mow
=< (welp :_(mow (turn (~(tap in p.dap)) .)))
=< (welp :_(mow (turn (~(tap in p.u.dap)) .)))
|= bem=beam
:^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)]
[%c [%warp [our p.bem] q.bem ~ [%next %y r.bem (flop s.bem)]]]