From 92b99292a497b9cff2c6e9960a5fe4e5508bc6f3 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 6 Feb 2019 16:07:00 -0800
Subject: [PATCH] Fixed EscapedNomsu upgrade rule

---
 lib/compatibility/7.nom | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/compatibility/7.nom b/lib/compatibility/7.nom
index fe31ec6..5add70f 100644
--- a/lib/compatibility/7.nom
+++ b/lib/compatibility/7.nom
@@ -18,10 +18,12 @@ upgrade action ($tree has subtree $match_tree) to "7" as
 
 upgrade $tree to "7" as:
     if ($tree.type == "EscapedNomsu"):
-        $e = $tree.1
-        return
-            "Action" tree from $tree.source with ("Text" tree with $e.type) "tree" "with"
-                unpack $e
+        $t =
+            "Action" tree from $tree.source with ("Text" tree with $tree.1.type) "tree" "with"
+        for $tok in $tree.1:
+            if ($tok is "Text"): $t, add ("Text" tree with $tok)
+            ..else: $t, add $tok
+        return $t
 
 upgrade action "Nomsu version" to "7" via ->(`$(NOMSU VERSION))
 upgrade action [