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

Made %mult requests produce only a case and set of paths.

Browse Source 
It now works the way %next should.
This commit is contained in:
Fang 2018-01-22 15:54:37 +01:00
parent e3cbbd31a2
commit 635d235cd7
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
sys/vane/clay.hoon
View File

@ -596,14 +596,11 @@
==
::
++ blas
|= {hen/duct das/(map mood (each cage lobe))}
|= {hen/duct das/(set mood)}
^+ +>
=- (emit hen %give %wris -)
%- ~(run in das)
|= {mun/mood dat/(each cage lobe)}
~| %lobe-unsupported-tmp
?> ?=($& -.dat)
[[p.mun q.mun syd] r.mun p.dat]
?> ?=(^ das)
=- (emit hen %give %wris q.n.das -)
(~(run in `(set mood)`das) |=(m/mood r.m))
::
:: Give next step in a subscription.
::
@ -900,7 +897,7 @@
++ respond :: send changes
|= res/(map mood (each cage lobe))
^+ ..start-request
?: ?=($mult -.rav) (blas hen res)
?: ?=($mult -.rav) (blas hen ~(key by res))
?> ?=({* $~ $~} res)
(blab hen n.res)
::
@ -1871,7 +1868,7 @@
^+ ..wake
::NOTE want to use =-, but compiler bug?
?: ?=($mult -.vor)
^^$(xiq t.xiq, ..wake (blas-all q.i.xiq res))
^^$(xiq t.xiq, ..wake (blas-all q.i.xiq ~(key by res)))
?> ?=({* $~ $~} res)
^^$(xiq t.xiq, ..wake (blab-all q.i.xiq n.res))
::

2
sys/zuse.hoon
View File

@ -391,7 +391,7 @@
{$ogre p/@tas} :: delete mount point
{$send p/lane:ames q/@} :: transmit packet
{$writ p/riot} :: response
{$wris p/(set rant)} :: responses
{$wris p/case p/(set path)} :: responses
== ::
++ task :: in request ->$
$% {$boat $~} :: pier rebooted