diff --git a/base/ape/octo/core.hook b/base/ape/octo/core.hook index 29b9d5161..9a0fe10d7 100644 --- a/base/ape/octo/core.hook +++ b/base/ape/octo/core.hook @@ -55,9 +55,10 @@ ++ abet [(flop moz) .(moz ~)] :: resolve ++ bike $+(_. _+>) :: self-transformer ++ dish |=(cad=card %_(+> moz [[ost cad] moz])) :: request -++ echo |= [all=(list sink) fun=bike] :: broadcast - =+ +>+<- |- ?~ all +>.^$(+<- +<) :: - $(all t.all, ost p.i.all, src q.i.all, +>.^$ (fun +>.^$)) :: +++ echo |= [all=(list sink) fun=bike] =+ +>+<- :: publish to all + |- ^+ +>.^$ ?~ all +>.^$(+<- +<) %= $ :: + all t.all ost p.i.all src q.i.all :: + +>.^$ (fun +>.^$) == :: ++ eels (~(tap by sup)) :: all clients ++ elfs (prey /octo +<-) :: network clients ++ elks (prey /sole +<-) :: console clients