jael: notify gall the vane before notifying gall agents

This commit is contained in:
pkova 2024-05-01 18:01:51 +03:00
parent 9dc2cebb44
commit ef302ded0d

View File

@ -670,7 +670,9 @@
$(yez t.yez) $(yez t.yez)
:: ::
:: We want to notify Ames, then Clay, then Gall. This happens to :: We want to notify Ames, then Clay, then Gall. This happens to
:: be alphabetical, but this is mostly a coincidence. :: be alphabetical, but this is mostly a coincidence. We also have
:: to notify Gall the vane before we notify any Gall agents, so we
:: can kiss the coincidence goodbye.
:: ::
++ sorter ++ sorter
|= [a=duct b=duct] |= [a=duct b=duct]
@ -678,6 +680,8 @@
| |
?. ?=([[@ *] *] b) ?. ?=([[@ *] *] b)
& &
?: &(?=([[%gall *] *] a) ?=([[%gall *] *] b))
?=([%gall %sys *] i.a)
(lth (end 3 i.i.a) (end 3 i.i.b)) (lth (end 3 i.i.a) (end 3 i.i.b))
-- --
:: ::