From ddb839bfd4ba8dbdd214f3e885629fc8fe57e68c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 14 Mar 2019 16:30:43 -0700
Subject: Replacing (size of $) with (#$) as should have been done before.

---
 lib/compatibility/compatibility.nom | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/lib/compatibility/compatibility.nom b/lib/compatibility/compatibility.nom
index dc21f0b..123f4d9 100644
--- a/lib/compatibility/compatibility.nom
+++ b/lib/compatibility/compatibility.nom
@@ -25,7 +25,7 @@ external:
         $lua = (Lua "")
         for $action in $actions:
             $replacements = {}
-            for $i in 1 to (size of $action):
+            for $i in 1 to (#$action):
                 if ($action.$i is "Var" syntax tree):
                     $replacements.($action.$i.1) = "\(\$tree as lua id)[\$i]"
             define mangler
@@ -74,6 +74,7 @@ external:
             if ($ver is "Text"):
                 return (($ as number) for $ in $ver matching "[0-9]+")
             return $ver
+        
         (Ver $) means:
             if ($ is "a List"):
                 if ($.1 is "Text"):
@@ -83,6 +84,7 @@ external:
             if $lib:
                 return {.lib = $lib, .version = ($ver as version list)}
             return {.version = ($ as version list)}
+        
         $start = (Ver $start_version)
         $end = (Ver $end_version)
         $end.lib or= $start.lib
@@ -137,4 +139,4 @@ external:
         $tree upgraded from ($tree.version or $(NOMSU VERSION)) to $end_version
     
     ($tree upgraded) means
-        $tree upgraded from ($tree.version or $(NOMSU VERSION)) to $(NOMSU VERSION)
+        $tree upgraded from ($tree.version or $(NOMSU VERSION)) to $(NOMSU VERSION)
\ No newline at end of file
-- 
cgit v1.2.3