aboutsummaryrefslogtreecommitdiff
path: root/lib/compatibility/5.13.nom
blob: b3d984696f86a5defdcd5953d135f1f62cd5c47f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/env nomsu -V7.0.0
###
    This file defines upgrades from Nomsu <5.13 to 5.13
use "compatibility/compatibility"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

upgrade action (size of $) to "5.13" as #$
upgrade action "with" to "5.13" via
    for $tree:
        $assignments = $tree.2
        $body = $tree.3
        if ($assignments.type != "Dict"): return $tree
        $new_assignments = \[]
        for ($i = $a) in $assignments:
            when:
                (($a.type == "DictEntry") and (#$a == 1)): $a = $a.1
                (all of [$a.type == "DictEntry", #$a == 2]): $a = \(\$a.1 = \$a.2)
            $new_assignments.$i = $a
        return \(with \$new_assignments \$body)