global-functions: $ScriptInstallUpdate: use $ExitError to indicate unintentional error

1 files changed, 4 insertions, 2 deletions

diff --git a/global-functions.rsc b/global-functions.rsc
index 6c74c2f..743c50e 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -1018,7 +1018,7 @@
 }
 
 # install new scripts, update existing scripts
-:set ScriptInstallUpdate do={
+:set ScriptInstallUpdate do={ :do {
   :local Scripts    [ :toarray $1 ];
   :local NewComment [ :tostr   $2 ];
 
@@ -1237,7 +1237,9 @@
     :set GlobalConfigChanges;
     :set GlobalConfigMigration;
   }
-}
+} on-error={
+  :global ExitError; $ExitError false $0;
+} }
 
 # lock script against multiple invocation
 :set ScriptLock do={