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

Continuity breach to protocol 7.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-19 11:00:08 -08:00
parent 0adc4eb45b
commit 9b61bd7388
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -440,7 +440,7 @@
vix=(bex +((cut 0 [25 2] mag))) :: width of sender vix=(bex +((cut 0 [25 2] mag))) :: width of sender
tay=(cut 0 [27 5] mag) :: message type tay=(cut 0 [27 5] mag) :: message type
== ==
?> =(6 vez) ?> =(7 vez)
?> =(chk (end 0 20 (mug bod))) ?> =(chk (end 0 20 (mug bod)))
:+ [(end 3 wix bod) (cut 3 [wix vix] bod)] :+ [(end 3 wix bod) (cut 3 [wix vix] bod)]
(kins tay) (kins tay)
@ -460,7 +460,7 @@
=+ tay=(ksin q.kec) =+ tay=(ksin q.kec)
%+ mix %+ mix
%+ can 0 %+ can 0
:~ [3 6] :~ [3 7]
[20 (mug bod)] [20 (mug bod)]
[2 yax] [2 yax]
[2 qax] [2 qax]
@ -1048,7 +1048,7 @@
++ gnaw :: gnaw:am ++ gnaw :: gnaw:am
|= [kay=cape ryn=lane pac=rock] :: process packet |= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=fort] ^- [p=(list boon) q=fort]
?. =(6 (end 0 3 pac)) [~ fox] ?. =(7 (end 0 3 pac)) [~ fox]
=+ kec=(bite pac) =+ kec=(bite pac)
?: (goop p.p.kec) [~ fox] ?: (goop p.p.kec) [~ fox]
?. (~(has by urb.ton.fox) q.p.kec) ?. (~(has by urb.ton.fox) q.p.kec)

2
main/app/radio/core.hook
View File

@ -366,7 +366,7 @@
=+ ^= hay =+ ^= hay
%+ skim cul %+ skim cul
|= [a=ship b=@da c=status] |= [a=ship b=@da c=status]
(lte lat.hid (add ~m2 b)) (lte lat.hid (add ~m15 b))
?: =(cul hay) +> ?: =(cul hay) +>
%. viewers %. viewers
pa-display(locals (~(gas by *(map ship (pair ,@da status))) hay)) pa-display(locals (~(gas by *(map ship (pair ,@da status))) hay))

2
main/app/talk/core.hook
View File

@ -532,7 +532,7 @@
^- [(list move) _+>] ^- [(list move) _+>]
:_ +> :_ +>
:~ [ost %pass /cmd-in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]] :~ [ost %pass /cmd-in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]]
[0 %pass /time %t %wait (add ~s90 lat.hid)] [0 %pass /time %t %wait (add ~m10 lat.hid)]
[ost %pass /cmd-ac %g %show [our.hid +.imp.hid] you /active/[-.imp.hid]] [ost %pass /cmd-ac %g %show [our.hid +.imp.hid] you /active/[-.imp.hid]]
^- move ^- move
:* ost %pass /server :* ost %pass /server