ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 08:34:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

More gentle handling for unacceptable inconsistencies.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-04-14 11:43:06 -07:00
parent 7208047f0e
commit e0a6db7ddc
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/eyre.hoon
View File

@ -261,11 +261,13 @@
++ gosh :: receive %pr response
|= [him=ship num=@ud har=httr]
^+ +>
=+ rot=(need (~(get by fon) him))
=+ zer=(need (~(get by q.rem.rot) num))
=+ ryt=(~(get by fon) him)
?~ ryt +>.$
=+ zur=(~(get by q.rem.u.ryt) num)
?~ zur +>.$
%_ +>.$
mow :_(mow [wru zer [%thou har]])
fon (~(put by fon) him rot(q.rem (~(del by q.rem.rot) num)))
mow :_(mow [wru u.zur [%thou har]])
fon (~(put by fon) him u.ryt(q.rem (~(del by q.rem.u.ryt) num)))
==
::
++ gout