aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/compatibility/7.nom10
1 files 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 [