Don't create a %permit delta if there is no change.

This commit is contained in:
Fang 2017-11-13 23:45:55 +01:00
parent 40d570aaae
commit ca61503876

View File

@ -1201,10 +1201,11 @@
=/ sus/(set ship)
%. sis.con.shape
?:(add ~(dif in sis) ~(int in sis))
?~ sus +>.$
=. +>.$
%- so-act
:- %phrase
%- ~(rep in sus)
%- ~(rep in `(set ship)`sus)
|= {s/ship a/audience t/(list speech)}
:- (~(put in a) [s %inbox])
[[%inv inv so-cir] t]