From 938adbfe446e7f4a4e45b9dd27b5cf2e7ee4070c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
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/4.8.10.nom | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'lib/compatibility/4.8.10.nom')

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))
-- 
cgit v1.2.3