From 24174ee9c6d2ffc36bda9b16f4da5cb8d8f852dd Mon Sep 17 00:00:00 2001 From: Anton Dyudin Date: Mon, 7 Nov 2016 14:15:56 -0800 Subject: [PATCH] add %peer-not "poison pill" peer --- arvo/gall.hoon | 6 ++++++ arvo/zuse.hoon | 1 + 2 files changed, 7 insertions(+) diff --git a/arvo/gall.hoon b/arvo/gall.hoon index 66244106b..2edfb34c2 100644 --- a/arvo/gall.hoon +++ b/arvo/gall.hoon @@ -242,6 +242,9 @@ :: to this returning pump. :: +> + ?: ?=($peer-not -.q.caz) + :: short circuit error + (mo-give %unto %reap (some p.q.caz)) =^ num +>.$ (mo-bale him) =+ ^= roc ^- rook ?- -.q.caz @@ -532,6 +535,8 @@ %+ mo-pass [%sys %val (scot %p q.q.pry) dap ~] [%f %exec our ~ (mo-beak dap) %cast p.cub %$ q.cub] + ?: ?=($peer-not -.cub) + (mo-give %unto %reap (some p.cub)) ap-abet:(ap-club:(ap-abed:ap dap pry) cub) :: ++ mo-club :: local action @@ -713,6 +718,7 @@ $peer (ap-peer +.cub) $puff !! $punk !! + $peer-not !! $pull ap-pull $pump ap-fall == diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon index a416f7c9c..5c6044dd3 100644 --- a/arvo/zuse.hoon +++ b/arvo/zuse.hoon @@ -2946,6 +2946,7 @@ {$pull $~} :: unsubscribe {$punk p/mark q/cage} :: translated poke {$pump $~} :: pump yes+no + {$peer-not p/tang} :: poison pill peer == :: ++ cuft :: internal gift $% {$coup p/(unit tang)} :: poke result