urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Working commit with newpump (not later nupump).

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-07-30 17:01:51 -07:00
parent 77c67a8fbe
commit ec1d3d2d28
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
arvo/ames.hoon
View File

@ -1337,10 +1337,10 @@
:: =^ bun fox zork:(wake:(um p.n.caz) hen)
::
:: newpump
:: =^ bun fox zork:(walk:(um p.n.caz) hen)
=^ bun fox zork:(walk:(um p.n.caz) hen)
::
:: nupump
=^ bun fox zork:(wake:(um p.n.caz) hen)
:: =^ bun fox zork:(wake:(um p.n.caz) hen)
::
:_(fox :(weld p.lef p.ryt p.bun))
::
@ -1352,10 +1352,10 @@
:: zork:abet:(we-wool:(wend:(ho:(um p.soq) q.soq) hen) cha val)
::
:: newpump
:: zork:abet:(we-woof:(wend:(ho:(um p.soq) q.soq) hen) cha val)
zork:abet:(we-woof:(wend:(ho:(um p.soq) q.soq) hen) cha val)
::
:: nupump
zork:abet:(ve-wood:(vend:(ho:(um p.soq) q.soq) hen) cha val)
:: zork:abet:(ve-wood:(vend:(ho:(um p.soq) q.soq) hen) cha val)
::
++ wish :: wise:am
|= {soq/sock kos/bole cha/path val/*} :: return response
@ -1364,10 +1364,10 @@
:: zork:abet:(we-wool:(wand:(ho:(um p.soq) q.soq) kos) cha val)
::
:: newpump
:: zork:abet:(we-woof:(wand:(ho:(um p.soq) q.soq) kos) cha val)
zork:abet:(we-woof:(wand:(ho:(um p.soq) q.soq) kos) cha val)
::
:: nupump
zork:abet:ve-abet:(ve-wood:(vand:(ho:(um p.soq) q.soq) kos) cha val)
:: zork:abet:ve-abet:(ve-wood:(vand:(ho:(um p.soq) q.soq) kos) cha val)
::
::
++ um :: per server
@ -1425,10 +1425,10 @@
:: (~(we-tock we ost (~(got by sal.bah) ost)) dam cop lag)
::
:: newpump
:: abet:(back:(cave ost) dam cop lag)
abet:(back:(cave ost) dam cop lag)
::
:: nupump
ve-abet:(ve-back:(vand ost) dam cop lag)
:: ve-abet:(ve-back:(vand ost) dam cop lag)
::
::
++ balk :: balk:ho:um:am
@ -1859,20 +1859,20 @@
:: rtn.sop.bah :: XX oldpump
::
:: newpump
:: =+ doe=~(til se pod.weg)
:: ?: ?=($~ doe)
:: ~
:: doe
=+ doe=~(til se pod.weg)
?: ?=($~ doe)
~
doe
::
:: nupump
::
=| wun/(unit @da)
|- ^- (unit @da)
?~ sal.bah ~
=. wun $(sal.bah l.sal.bah)
=. wun $(sal.bah r.sal.bah)
=+ nuw=ve-wait:(vond p.n.sal.bah q.n.sal.bah)
?~(wun nuw ?~(nuw wun `(min u.nuw u.wun)))
:: =| wun/(unit @da)
:: |- ^- (unit @da)
:: ?~ sal.bah ~
:: =. wun $(sal.bah l.sal.bah)
:: =. wun $(sal.bah r.sal.bah)
:: =+ nuw=ve-wait:(vond p.n.sal.bah q.n.sal.bah)
:: ?~(wun nuw ?~(nuw wun `(min u.nuw u.wun)))
::
++ fore :: fore:ho:um:am
|= {ryn/lane who/ship via/(unit lane) msg/@} :: forward packet