global-functions: $LogPrintOnce: detect and warn on possible crash

1 files changed, 5 insertions, 0 deletions

diff --git a/global-functions.rsc b/global-functions.rsc
index 59ba039..b3d8719 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -737,6 +737,11 @@
     :return false;
   }
 
+  :if ([ :len [ /log/find where message=($Name . ": " . $Message) ] ] > 0) do={
+    $LogPrint warning $0 \
+      ("The message is already in log, scripting subsystem may have crashed before!");
+  }
+
   :set ($LogPrintOnceMessages->$Message) 1;
   $LogPrint $Severity $Name $Message;
   :return true;