ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-06 23:16:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

talk robustness

Browse Source
This commit is contained in:
Anton Dyudin 2015-06-24 13:42:50 -07:00
parent af56bf2dc0
commit 06c76f7fb7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ape/talk.hoon
View File

@ -1659,6 +1659,7 @@
?+ -.sep ~&(tr-lost/sep "") ?+ -.sep ~&(tr-lost/sep "")
%fat %fat
=+ rem=$(sep q.sep) =+ rem=$(sep q.sep)
?: (gth (lent rem) 60) (trim 62 rem)
=- "{rem} {(trim (sub 60 (lent rem)) -)}" =- "{rem} {(trim (sub 60 (lent rem)) -)}"
?+ -.p.sep "..." ?+ -.p.sep "..."
%tank ~(ram re %rose [" " `~] +.p.sep) %tank ~(ram re %rose [" " `~] +.p.sep)
@ -1686,7 +1687,7 @@
:: ~& [%talk-peer src ost pax] :: ~& [%talk-peer src ost pax]
?: ?=([%sole *] pax) ?: ?=([%sole *] pax)
?> =(our.hid src.hid) ?> =(our.hid src.hid)
?< (~(has by shells) ost.hid) ~? (~(has by shells) ost.hid) [%talk-peer-replaced ost.hid pax]
ra-abet:(~(ra-console ra ost.hid ~) src.hid t.pax) ra-abet:(~(ra-console ra ost.hid ~) src.hid t.pax)
:: ~& [%talk-peer-data ost.hid src.hid pax] :: ~& [%talk-peer-data ost.hid src.hid pax]
ra-abet:(~(ra-subscribe ra ost.hid ~) src.hid pax) ra-abet:(~(ra-subscribe ra ost.hid ~) src.hid pax)