From d5cfaa37be9e278c44a25ef448a071390597306e Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Wed, 18 Jul 2018 01:27:56 -0700
Subject: Upgrading to version 2.3 (main change: "=" instead of "<-" for
 assignment)

---
 compatibility/compatibility.nom | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

(limited to 'compatibility/compatibility.nom')

diff --git a/compatibility/compatibility.nom b/compatibility/compatibility.nom
index 1e68f35..9482e32 100644
--- a/compatibility/compatibility.nom
+++ b/compatibility/compatibility.nom
@@ -1,24 +1,24 @@
-#!/usr/bin/env nomsu -V2.2.4.3
+#!/usr/bin/env nomsu -V2.3.4.3
 use "core"
 use "lib/os.nom"
 
-%UPGRADES <- {}
+%UPGRADES = {}
 action [upgrade to %version via %upgrade_fn]:
-    %UPGRADES.%version <- %upgrade_fn
+    %UPGRADES.%version = %upgrade_fn
 
-%ACTION_UPGRADES <- {}
+%ACTION_UPGRADES = {}
 action [upgrade action %stub to %version via %upgrade_fn]:
-    unless (%ACTION_UPGRADES.%version): %ACTION_UPGRADES.%version <- []
-    %ACTION_UPGRADES.%version.%stub <- %upgrade_fn
+    unless (%ACTION_UPGRADES.%version): %ACTION_UPGRADES.%version = []
+    %ACTION_UPGRADES.%version.%stub = %upgrade_fn
 
 parse [upgrade %tree to %version as %body] as (..)
     upgrade to %version via ([%] -> (% with %tree -> %body))
 
 compile [upgrade action %action to %version as %body] to:
-    %replacements <- {}
+    %replacements = {}
     for %i in 1 to (length of %action):
         if (%action.%i.type is "Var"):
-            %replacements.(%action.%i.1) <- "\(\%tree as lua id)[\%i]"
+            %replacements.(%action.%i.1) = "\(\%tree as lua id)[\%i]"
     local action [make tree %t]:
         when:
             * (%t is "Var" syntax tree):
@@ -27,7 +27,7 @@ compile [upgrade action %action to %version as %body] to:
                 ..else:
                     return "\(%t.type)(\(quote "\(%t.source)"), \(quote "\(%t.1) \0\(=lua "string.format('%X', __MANGLE_INDEX)")"))"
             * (%t is syntax tree):
-                %args <- ((make tree %) for % in %t)
+                %args = ((make tree %) for % in %t)
                 add "\(\%tree as lua id).source" to %args at index 1
                 return "\(%t.type)(\(%args joined with ", "))"
             *else: return (quote "\%t")
@@ -43,20 +43,20 @@ action [..]
     %tree upgraded to %end_version from %start_version
 ..:
     local action [%ver as list] ((% as number) for % where %ver matches "[0-9]+")
-    %versions <- {}
-    for %v = % in %UPGRADES: %versions.%v <- (yes)
-    for %v = % in %ACTION_UPGRADES: %versions.%v <- (yes)
-    %versions <- ((keys in %versions) sorted by % -> (% as list))
+    %versions = {}
+    for %v = % in %UPGRADES: %versions.%v = (yes)
+    for %v = % in %ACTION_UPGRADES: %versions.%v = (yes)
+    %versions = ((keys in %versions) sorted by % -> (% as list))
     for %ver in %versions:
         if ((%ver as list) <= (%start_version as list)): do next %ver
         if ((%ver as list) > (%end_version as list)): stop %ver
         if %ACTION_UPGRADES.%ver:
-            %tree <- (..)
+            %tree = (..)
                 %tree with % -> (..)
                     if ((% is "Action" syntax tree) and %ACTION_UPGRADES.%ver.(%.stub)):
                         return (call %ACTION_UPGRADES.%ver.(%.stub) with [%])
         if %UPGRADES.%ver:
-            %tree <- (call %UPGRADES.%ver with [%tree])
+            %tree = (call %UPGRADES.%ver with [%tree])
     
     return %tree
 
@@ -72,7 +72,7 @@ parse [%tree upgraded] as (%tree upgraded from %tree.version to (Nomsu version))
 action [use %path from version %version] (..)
     for file %filename in %path:
         if (=lua "LOADED[\%filename]"): do next %filename
-        %file <- (read file %filename)
-        %tree <- (parse %file from %filename)
-        %tree <- (upgrade %tree from %version)
+        %file = (read file %filename)
+        %tree = (parse %file from %filename)
+        %tree = (upgrade %tree from %version)
         run tree %tree
-- 
cgit v1.2.3