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/4.8.10.nom | |
| parent | e665d9725c4bb02f4c18d16527367f424cb880fa (diff) | |
Switching more verbose ("Action" tree with "foo" $x) syntax to `(foo
`$x) when possible
Diffstat (limited to 'lib/compatibility/4.8.10.nom')
| -rw-r--r-- | lib/compatibility/4.8.10.nom | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lib/compatibility/4.8.10.nom b/lib/compatibility/4.8.10.nom index 3ec7421..ee60a61 100644 --- a/lib/compatibility/4.8.10.nom +++ b/lib/compatibility/4.8.10.nom @@ -13,12 +13,12 @@ upgrade action "local action" to "4.8.10" via if $spec.type is: "List": if (#$spec == 1): - return ("Action" tree with $spec.1 "means" $body) + return `(`$spec.1 means `$body) ..else: - return ("Action" tree with $spec "all" "mean" $body) + return `(`$spec all mean `$body) else: - return ("Action" tree with $spec "means" $body) + return `(`$spec means `$body) upgrade action "action" to "4.8.10" via for ($tree $end_version): @@ -28,14 +28,14 @@ upgrade action "action" to "4.8.10" via if $spec.type is: "List": if (#$spec == 1): - return ("Action" tree with "externally" $spec.1 "means" $body) + return `(externally `$spec.1 means `$body) ..else: - return ("Action" tree with "externally" $spec "all" "mean" $body) + return `(externally `$spec all mean `$body) else: - return ("Action" tree with "externally" $spec "means" $body) + return `(externally `$spec means `$body) ..else: - return ("Action" tree with $spec "'" "s" "meaning") + return `((`$spec)'s meaning) upgrade action "compile 1 to" to "4.8.10" via for ($tree $end_version): @@ -44,12 +44,12 @@ upgrade action "compile 1 to" to "4.8.10" via if $spec.type is: "List": if (#$spec == 1): - return ("Action" tree with $spec.1 "compiles" "to" $body) + return `(`$spec.1 compiles to `$body) ..else: - return ("Action" tree with $spec "all" "compile" "to" $body) + return `(`$spec all compile to `$body) else: - return ("Action" tree with $spec "compiles" "to" $body) + return `(`$spec compiles to `$body) upgrade action "parse 1 as" to "4.8.10" via for ($tree $end_version): @@ -58,12 +58,12 @@ upgrade action "parse 1 as" to "4.8.10" via if $spec.type is: "List": if (#$spec == 1): - return ("Action" tree with $spec.1 "parses" "as" $body) + return `(`$spec.1 parses as `$body) ..else: - return ("Action" tree with $spec "all" "parse" "as" $body) + return `(`$spec all parse as `$body) else: - return ("Action" tree with $spec "parse" "as" $body) + return `(`$spec parse as `$body) upgrade action (compile as $) to "4.8.10" as (what $ compiles to) -upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil))
\ No newline at end of file +upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil)) |