global-functions: $ScriptLock: simplify cleanup code

This commit is contained in:
Christian Hesse 2021-12-10 07:34:09 +01:00
parent a46fd48187
commit 6dede0c49b

View file

@ -958,16 +958,13 @@
:global ScriptLockOrder;
:local Clean true;
:foreach Ticket in=($ScriptLockOrder->$Script) do={
:if ([ :typeof $Ticket ] != "nothing") do={
:set Clean false;
:return false;
}
}
:if ($Clean = true) do={
:set ($ScriptLockOrder->$Script) [ :toarray "" ];
}
:set ($ScriptLockOrder->$Script) [ :toarray "" ];
}
:if ([ :len [ / system script find where name=$Script ] ] = 0) do={