From 3b9df48721c6cb6c3018581749cdbcb6442774a5 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 16 Oct 2023 23:39:27 +0200
Subject: global-functions: $ParseJson: prepare elif-workaround

---
 global-functions.rsc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'global-functions.rsc')

diff --git a/global-functions.rsc b/global-functions.rsc
index d510ff9..8dc8c02 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -714,13 +714,16 @@
         :set $Skip ($Skip - 1);
       }
     } else={
+      :local Done false;
       :local Key ($Input->$I);
       :local Val1 ($Input->($I + 1));
       :local Val2 ($Input->($I + 2));
       :if ($Val1 = ":") do={
         :set ($Return->$Key) $Val2;
         :set Skip 2;
-      } else={
+        :set Done true;
+      }
+      :if ($Done = false) do={
         :set ($Return->$Key) [ :pick $Val1 1 [ :len $Val1 ] ];
         :set Skip 1;
       }
-- 
cgit v1.2.3-54-g00ecf