From a1849da175765350e013bdeecfa4e0ad3c066937 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 27 Mar 2019 15:22:46 -0700 Subject: Autoformat (mostly just to do with the new blank-line-after-end-of-multi-indent-block rule --- lib/compatibility/compatibility.nom | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/compatibility/compatibility.nom') diff --git a/lib/compatibility/compatibility.nom b/lib/compatibility/compatibility.nom index 4cc5d74..4ccd469 100644 --- a/lib/compatibility/compatibility.nom +++ b/lib/compatibility/compatibility.nom @@ -28,6 +28,7 @@ external: for $i in (1 to #$action): if ($action.$i is "Var" syntax tree): $replacements.($action.$i.1) = "\(\$tree as lua id)[\$i]" + define mangler (make tree $t) means: when: @@ -47,6 +48,7 @@ external: $args, add (make tree $v) ..else: $args, add "\($k)=\(make tree $v)" + return "SyntaxTree{\($args, joined with ", ")}" else: @@ -63,6 +65,7 @@ external: return \$retval end) ") + return $lua [ @@ -110,6 +113,7 @@ external: $tree = SyntaxTree {: for ($k = $v) in $tree: add $k = ($v upgraded from $curr_version to $ver)} + if (($tree.type == "Action") and $ACTION_UPGRADES.$ver): $(upgrade 1) = $ACTION_UPGRADES.$ver.($tree, get stub) if $(upgrade 1): @@ -140,4 +144,4 @@ external: $tree upgraded from ($tree.version or $(NOMSU VERSION)) to $end_version ($tree upgraded) means - $tree upgraded from ($tree.version or $(NOMSU VERSION)) to $(NOMSU VERSION) + $tree upgraded from ($tree.version or $(NOMSU VERSION)) to $(NOMSU VERSION) \ No newline at end of file -- cgit v1.2.3