diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2019-02-06 16:07:00 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2019-02-06 16:07:00 -0800 |
| commit | 92b99292a497b9cff2c6e9960a5fe4e5508bc6f3 (patch) | |
| tree | 4a45d04ecfdf32aeceddc2e8003d279fdf0da0d8 /lib | |
| parent | 057f5b74ebb7851f6ba824129b3e3316cae23260 (diff) | |
Fixed EscapedNomsu upgrade rule
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/compatibility/7.nom | 10 |
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 [ |