From ecff43975d05d5cfe098df50a591c8d52c2eba9d Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Fri, 29 May 2015 01:48:14 -0700 Subject: [PATCH] More fixes, etc. --- base/ape/octo/core.hook | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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