From fa3f598fc3b91d92665fda293460944f75c95b67 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Fri, 9 Nov 2018 17:02:39 -0800
Subject: Fixing the upgrade pipeline, plus some misc. fixes.

---
 compatibility/4.8.10.nom | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

(limited to 'compatibility/4.8.10.nom')

diff --git a/compatibility/4.8.10.nom b/compatibility/4.8.10.nom
index d62efa1..7ea95b0 100644
--- a/compatibility/4.8.10.nom
+++ b/compatibility/4.8.10.nom
@@ -5,7 +5,7 @@ use "compatibility/compatibility.nom"
 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
-upgrade action "local action 1 2" to "4.8.10" via (..)
+upgrade action "local action" to "4.8.10" via (..)
     [%tree, %end_version] ->:
         %spec = %tree.3
         %body = %tree.4
@@ -18,20 +18,23 @@ upgrade action "local action 1 2" to "4.8.10" via (..)
             else:
                 return \(%spec means %body)
 
-upgrade action "action 1 2" to "4.8.10" via (..)
+upgrade action "action" to "4.8.10" via (..)
     [%tree, %end_version] ->:
         %spec = %tree.2
         %body = %tree.3
-        if %spec.type is:
-            "List":
-                if ((size of %spec) == 1):
-                    return \(externally %spec.1 means %body)
-                ..else:
-                    return \(externally %spec all mean %body)
-            else:
-                return \(externally %spec means %body)
+        if %body:
+            if %spec.type is:
+                "List":
+                    if ((size of %spec) == 1):
+                        return \(externally %spec.1 means %body)
+                    ..else:
+                        return \(externally %spec all mean %body)
+                else:
+                    return \(externally %spec means %body)
+        ..else:
+            return \(%spec's meaning)
 
-upgrade action "compile 1 to 2" to "4.8.10" via (..)
+upgrade action "compile 1 to" to "4.8.10" via (..)
     [%tree, %end_version] ->:
         %spec = %tree.2
         %body = %tree.4
@@ -44,7 +47,7 @@ upgrade action "compile 1 to 2" to "4.8.10" via (..)
             else:
                 return \(%spec compiles to %body)
 
-upgrade action "parse 1 as 2" to "4.8.10" via (..)
+upgrade action "parse 1 as" to "4.8.10" via (..)
     [%tree, %end_version] ->:
         %spec = %tree.2
         %body = %tree.4
@@ -58,5 +61,4 @@ upgrade action "parse 1 as 2" to "4.8.10" via (..)
                 return \(%spec parse as %body)
 
 upgrade action (compile as %) to "4.8.10" as (what % compiles to)
-upgrade action (action %) to "4.8.10" as (%'s meaning)
 upgrade action (remove action %) to "4.8.10" as ((%'s meaning) = (nil))
-- 
cgit v1.2.3