ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 11:40:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #1021 from urbit/ames-saxo

Browse Source 
try saxoing less
This commit is contained in:
ixv 2019-01-19 17:30:15 -08:00 committed by GitHub
commit 21ec2a8138
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
sys/vane/ames.hoon
View File

@ -456,7 +456,6 @@
:: ~& [%slow (div rto (div ~s1 1.000))]
=. +> (wept 0 nus)
?> =(0 nif)
=+ oub=(gte rto ~s16)
=: caw 2
rto ;: min
(mul 2 rto)
@ -656,7 +655,9 @@
?~ neb
=^ ban fox (kick hen)
[:(weld bin p.ban next) fox]
=^ bun fox zork:zank:thaw:(ho:um i.neb)
=/ fro=(list ship) (saxo-scry our)
=/ hoz (ho:um i.neb)
=^ bun fox zork:zank:(thaw:hoz fro)
$(neb t.neb, bin (weld p.bun bin))
::
++ wise :: wise:am
@ -757,7 +758,8 @@
rum(dod &, bum ?~(cop bum.rum (~(put by bum.rum) did.rum u.cop)))
=/ seg (sein-scry her)
=^ roc diz (zuul:diz now seg [%back cop dam ~s0])
(busk(diz (wast:diz ryn)) xong roc)
=/ fro=(list ship) (saxo-scry our)
(busk(diz (wast:diz ryn)) (xong fro) roc)
:: XX move this logic into %zuse, namespaced under %jael?
::
++ deng :: deng:ho:um:am
@ -951,7 +953,8 @@
=* cop `coop`?:(=(%good kay) ~ ``[%dead-packet ~])
=/ seg (sein-scry her)
=^ pax diz (zuul:diz now seg [%back cop dam ~s0])
+>(+> (busk(diz (wast:diz ryn)) xong pax))
=/ fro=(list ship) (saxo-scry our)
..cock(+> (busk(diz (wast:diz ryn)) (xong fro) pax))
::
++ deer :: deer:la:ho:um:am
|= [cha=path num=@ud dut=(unit)] :: interpret message
@ -1034,7 +1037,8 @@
(emit %mead lyn r.fud)
=/ zid (myx:gus p.fud)
=/ zon %*(xong ..xong her p.fud)
(emir (wist:zid now zon [~ lyn] r.fud))
=/ fro=(list ship) (saxo-scry our)
(emir (wist:zid now (zon fro) [~ lyn] r.fud))
==
::
++ emir :: emir:la:ho:um:am
@ -1071,7 +1075,8 @@
(wool [/a/ping hen] /a/pi ~ |)
::
++ thaw :: thaw:ho:um:am
^+ . :: wakeup bomb
|= fro=(list ship)
^+ +> :: wakeup bomb
=+ oub=bust:puz
=^ yem puz (wack:puz now)
=+ bou=bust:puz
@ -1079,7 +1084,7 @@
?. &(bou !oub) bin
:_(bin [%wine her " not responding still trying"])
=. diz ?:((boom:puz now) (pode:diz now) diz)
(busk xong yem)
(busk (xong fro) yem)
::
++ tock :: tock:ho:um:am
|= [cop=coop fap=flap cot=@dr] :: e2e ack by hash
@ -1095,7 +1100,8 @@
:_ bin
`boon`[%cake her [[lyf:sen:gus clon:diz] u.p.yoh] cop u.hud]
==
(busk xong q.yoh)
=/ fro=(list ship) (saxo-scry our)
(busk (xong fro) q.yoh)
::
++ wind :: wind:ho:um:am
|= [gom=soup ham=meal]
@ -1104,7 +1110,8 @@
=/ seg (sein-scry her)
=^ wyv diz (zuul:diz now seg ham)
=^ feh puz (whap:puz now gom wyv)
(busk xong feh)
=/ fro=(list ship) (saxo-scry our)
(busk (xong fro) feh)
::
++ wool :: wool:ho:um:am
|= [hen=duct cha=path val=*] :: send a statement
@ -1183,8 +1190,8 @@
==
::
++ xong :: xong:ho:um:am
|= fro=(list ship)
^- (list ship) :: route unto
=/ fro (saxo-scry our)
=/ too (saxo-scry her)
=+ ^= oot ^- (list ship)
=| oot=(list ship)