ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-19 22:48:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:urbit/urbit

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-10-15 14:02:54 -07:00
commit a80b3a9bb4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/ames.hoon
View File

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