From 938adbfe446e7f4a4e45b9dd27b5cf2e7ee4070c Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 20 Mar 2019 16:16:41 -0700 Subject: Switching more verbose ("Action" tree with "foo" $x) syntax to `(foo `$x) when possible --- lib/compatibility/2.4.nom | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lib/compatibility/2.4.nom') diff --git a/lib/compatibility/2.4.nom b/lib/compatibility/2.4.nom index 17a2df5..b28893a 100644 --- a/lib/compatibility/2.4.nom +++ b/lib/compatibility/2.4.nom @@ -30,7 +30,7 @@ upgrade $tree to "2.4" as: $new_lines, add $line ($line.stub == "* else"): - $new_lines, add ("Action" tree with "else" $line.3) + $new_lines, add (else `$line.3) else: $conditions, add $line.2 @@ -44,9 +44,7 @@ upgrade $tree to "2.4" as: ") $conditions = [] - return - "Action" tree with "when" - "Block" tree from $tree.2.source with (unpack $new_lines) + return `(when `("Block" tree from $tree.2.source with (unpack $new_lines))) "if 1 is ?" "if 1 = ?": $values = [] @@ -66,7 +64,7 @@ upgrade $tree to "2.4" as: $new_lines, add $line ($line.stub == "* else"): - $new_lines, add ("Action" tree with "else" $line.3) + $new_lines, add (else `$line.3) else: $values, add $line.2 @@ -79,5 +77,7 @@ upgrade $tree to "2.4" as: $values = [] return - "Action" tree with "if" ($tree.2 upgraded) "is" - "Block" tree from $tree.5.source with (unpack $new_lines) + `( + if `($tree.2 upgraded) is + `("Block" tree from $tree.5.source with (unpack $new_lines)) + ) -- cgit v1.2.3