No longer sending internal-only diffs outward.

This commit is contained in:
Fang 2017-06-27 17:37:46 -07:00
parent 30a93c38b5
commit ee3c0aa10f

View File

@ -1786,6 +1786,7 @@
$burden $burden
::?: &(=(who.qer src.bol) did-they-send-a-burden) ~ ::?: &(=(who.qer src.bol) did-they-send-a-burden) ~
?. ?=($story -.dif) ~ ?. ?=($story -.dif) ~
?: ?=(?($follow $burden) -.dif.dif) ~
:: only burden channels for now. :: only burden channels for now.
?. =(%black sec.con.shape:(~(got by stories) nom.dif)) ~ ?. =(%black sec.con.shape:(~(got by stories) nom.dif)) ~
`[%burden nom.dif (dedicate who.qer dif.dif)] `[%burden nom.dif (dedicate who.qer dif.dif)]
@ -1806,7 +1807,7 @@
$circle $circle
?. ?=($story -.dif) ~ ?. ?=($story -.dif) ~
?. =(nom.qer nom.dif) ~ ?. =(nom.qer nom.dif) ~
?: ?=($follow -.dif.dif) ~ :: internal-only delta ?: ?=(?($follow $burden) -.dif.dif) ~ :: internal-only delta
=+ ren=(~(so-in-range so:ta nom.qer ~ (~(got by stories) nom.qer)) ran.qer) =+ ren=(~(so-in-range so:ta nom.qer ~ (~(got by stories) nom.qer)) ran.qer)
::TODO if done.ren, %quit bone ::TODO if done.ren, %quit bone
?. in.ren ~ ?. in.ren ~