ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +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 ++ gosh :: receive %pr response
|= [him=ship num=@ud har=httr] |= [him=ship num=@ud har=httr]
^+ +> ^+ +>
=+ rot=(need (~(get by fon) him)) =+ ryt=(~(get by fon) him)
=+ zer=(need (~(get by q.rem.rot) num)) ?~ ryt +>.$
=+ zur=(~(get by q.rem.u.ryt) num)
?~ zur +>.$
%_ +>.$ %_ +>.$
mow :_(mow [wru zer [%thou har]]) mow :_(mow [wru u.zur [%thou har]])
fon (~(put by fon) him rot(q.rem (~(del by q.rem.rot) num))) fon (~(put by fon) him u.ryt(q.rem (~(del by q.rem.u.ryt) num)))
== ==
:: ::
++ gout ++ gout