ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +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=@uvH
?~ dep ?~ dep
~&(dep-empty/hen +>.$) ~&(dep-empty/hen +>.$)
=+ dap=~|(dep-missed/dep (~(got by deh.bay) dep)) =+ dap=(~(get by deh.bay) dep)
?- -.dap ?~ dap ~&(dep-missed/dep +>.$) :: XX ~| !!
?- -.u.dap
%done +>.$(mow :_(mow [hen %give %news ~])) %done +>.$(mow :_(mow [hen %give %news ~]))
%sent %sent
=. p.dap (~(put in p.dap) hen) =. p.u.dap (~(put in p.u.dap) hen)
+>.$(deh.bay (~(put by deh.bay) dep dap)) +>.$(deh.bay (~(put by deh.bay) dep u.dap))
%init %init
%_ +>.$ %_ +>.$
deh.bay deh.bay
(~(put by deh.bay) dep [%sent [hen ~ ~] p.dap]) (~(put by deh.bay) dep [%sent [hen ~ ~] p.u.dap])
:: ::
mow mow
=< (welp :_(mow (turn (~(tap in p.dap)) .))) =< (welp :_(mow (turn (~(tap in p.u.dap)) .)))
|= bem=beam |= bem=beam
:^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)] :^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)]
[%c [%warp [our p.bem] q.bem ~ [%next %y r.bem (flop s.bem)]]] [%c [%warp [our p.bem] q.bem ~ [%next %y r.bem (flop s.bem)]]]