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