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

Fix some clay networking issues.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-10-10 15:11:06 -07:00
parent e0cb33b815
commit 266745b34a
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
sys/vane/clay.hoon
View File

@ -325,7 +325,7 @@
== :: == ::
++ note :: out request $-> ++ note :: out request $->
$% $: $a :: to %ames $% $: $a :: to %ames
$% {$wont p/sock q/path r/*} :: $% {$want p/sock q/path r/*} ::
== == :: == == ::
$: $c :: to %clay $: $c :: to %clay
$% {$info p/@p q/@tas r/nori} :: internal edit $% {$info p/@p q/@tas r/nori} :: internal edit
@ -641,7 +641,7 @@
:: ::
++ send-over-ames ++ send-over-ames
|= {a/duct b/path c/ship d/{p/@ud q/riff}} |= {a/duct b/path c/ship d/{p/@ud q/riff}}
(emit a %pass b %a %wont [our c] [%c %question p.q.d (scot %ud p.d) ~] q.d) (emit a %pass b %a %want [our c] [%c %question p.q.d (scot %ud p.d) ~] q.d)
:: ::
:: Create a request that cannot be filled immediately. :: Create a request that cannot be filled immediately.
:: ::
@ -3296,16 +3296,18 @@
[mos ..^$] [mos ..^$]
:: ::
$init $init
:: :_ %_ ..^$
:: this used to start the initial merge, which is now
:: not a necessary part of the boot sequence.
::
:- ~
%_ ..^$
fat.ruf fat.ruf
?< (~(has by fat.ruf) p.q.hic) ?< (~(has by fat.ruf) p.q.hic)
(~(put by fat.ruf) p.q.hic [-(hun hen)]:[*room .]) (~(put by fat.ruf) p.q.hic [-(hun hen)]:[*room .])
== ==
=+ [bos=(sein:title p.q.hic) can=(clan:title p.q.hic)]
%- zing ^- (list (list move))
:~ ?: =(bos p.q.hic) ~
[hen %pass /init-merge %c %merg p.q.hic %base bos %kids da+now %init]~
::
~
==
:: ::
$into $into
=. hez.ruf `hen =. hez.ruf `hen
@ -3665,8 +3667,8 @@
=+ our=(slav %p i.tea) =+ our=(slav %p i.tea)
=+ him=(slav %p i.t.tea) =+ him=(slav %p i.t.tea)
:_ ..^$ :_ ..^$
:~ :* hen %pass /writ-wont %a :~ :* hen %pass /writ-want %a
%wont [our him] [%c %answer t.t.tea] %want [our him] [%c %answer t.t.tea]
(bind p.+.q.hin rant-to-rand) (bind p.+.q.hin rant-to-rand)
== ==
== ==
@ -4122,8 +4124,8 @@
=+ our=(slav %p i.tea) =+ our=(slav %p i.tea)
=+ him=(slav %p i.t.tea) =+ him=(slav %p i.t.tea)
:_ +>.$ :_ +>.$
:~ :* hen %pass /writ-wont %a :~ :* hen %pass /writ-want %a
%wont [our him] [%c %answer t.t.tea] %want [our him] [%c %answer t.t.tea]
(bind p.+.hin rant-to-rand) (bind p.+.hin rant-to-rand)
== ==
== ==