diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2019-03-20 16:16:41 -0700 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2019-03-20 16:16:41 -0700 |
| commit | 938adbfe446e7f4a4e45b9dd27b5cf2e7ee4070c (patch) | |
| tree | 1a28126609a6d2ad3acabfa044aea106f0abf10b /lib/compatibility/2.4.nom | |
| parent | e665d9725c4bb02f4c18d16527367f424cb880fa (diff) | |
Switching more verbose ("Action" tree with "foo" $x) syntax to `(foo
`$x) when possible
Diffstat (limited to 'lib/compatibility/2.4.nom')
| -rw-r--r-- | lib/compatibility/2.4.nom | 14 |
1 files changed, 7 insertions, 7 deletions
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)) + ) |