From 18126da9c538046a93715d829722c818773b9ac1 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Thu, 30 Aug 2018 14:16:09 -0700
Subject: Auto-upgraded to 3.7

---
 core/control_flow.nom | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'core/control_flow.nom')

diff --git a/core/control_flow.nom b/core/control_flow.nom
index 63601f7..a786f44 100644
--- a/core/control_flow.nom
+++ b/core/control_flow.nom
@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.6.5.6
+#!/usr/bin/env nomsu -V3.7.5.6
 #
     This file contains compile-time actions that define basic control flow structures
     like "if" statements and loops.
@@ -300,7 +300,7 @@ compile [..]
         %stop_labels::append "\n\(compile as (===stop %key ===))"
     if (%body has subtree \(stop %value)):
         %stop_labels::append "\n\(compile as (===stop %value ===))"
-    if ((length of "\%stop_labels") > 0):
+    if ((size of "\%stop_labels") > 0):
         %lua = (..)
             Lua ".."
                 do -- scope for stopping for % = % loop
@@ -332,18 +332,18 @@ compile [if %body, when %body] to:
         compile error at %body.source "'if' expected a Block, but got: %s"
     for %line in %body:
         unless (..)
-            ((%line.type is "Action") and ((length of %line) >= 2)) and (..)
-                %line.(length of %line) is "Block" syntax tree
+            ((%line.type is "Action") and ((size of %line) >= 2)) and (..)
+                %line.(size of %line) is "Block" syntax tree
         ..:
             compile error at %line.source ".."
                 Invalid line for 'if', each line should contain conditional expressions followed by a block, or "else" followed by a block:
                 %s
         
-        %action = %line.(length of %line)
-        if ((%line.1 is "else") and ((length of %line) == 2)):
+        %action = %line.(size of %line)
+        if ((%line.1 is "else") and ((size of %line) == 2)):
             unless %else_allowed:
                 compile error at %line.source "Can't have two 'else' blocks"
-            unless ((length of "\%code") > 0):
+            unless ((size of "\%code") > 0):
                 compile error at %line.source ".."
                     Can't have an 'else' block without a preceeding condition
             
@@ -355,7 +355,7 @@ compile [if %body, when %body] to:
             %else_allowed = (no)
         ..else:
             %code::append "\%clause "
-            for %i in 1 to ((length of %line) - 1):
+            for %i in 1 to ((size of %line) - 1):
                 unless (%line.%i is syntax tree):
                     compile error at %line.source ".."
                         Invalid condition for 'if' statement:
@@ -371,7 +371,7 @@ compile [if %body, when %body] to:
             
             %clause = "\nelseif"
     
-    if ((length of "\%code") == 0):
+    if ((size of "\%code") == 0):
         compile error at %body.source "'if' block has an empty body"
     %code::append "\nend --when"
     return %code
@@ -395,18 +395,18 @@ compile [if %branch_value is %body, when %branch_value is %body] to:
         compile error at %body.source "'if' expected a Block, but got: %s"
     for %line in %body:
         unless (..)
-            ((%line.type is "Action") and ((length of %line) >= 2)) and (..)
-                %line.(length of %line) is "Block" syntax tree
+            ((%line.type is "Action") and ((size of %line) >= 2)) and (..)
+                %line.(size of %line) is "Block" syntax tree
         ..:
             compile error at %line.source ".."
                 Invalid line for 'if % is % %', each line should contain expressions followed by a block, or "else" followed by a block:
                 %s
         
-        %action = %line.(length of %line)
-        if ((%line.1 is "else") and ((length of %line) == 2)):
+        %action = %line.(size of %line)
+        if ((%line.1 is "else") and ((size of %line) == 2)):
             unless %else_allowed:
                 compile error at %line.source "Can't have two 'else' blocks"
-            unless ((length of "\%code") > 0):
+            unless ((size of "\%code") > 0):
                 compile error at %line.source ".."
                     Can't have an 'else' block without a preceeding condition
             
@@ -418,7 +418,7 @@ compile [if %branch_value is %body, when %branch_value is %body] to:
             %else_allowed = (no)
         ..else:
             %code::append "\%clause "
-            for %i in 1 to ((length of %line) - 1):
+            for %i in 1 to ((size of %line) - 1):
                 unless (%line.%i is syntax tree):
                     compile error at %line.source ".."
                         Invalid condition for 'if' statement:
@@ -434,7 +434,7 @@ compile [if %branch_value is %body, when %branch_value is %body] to:
             
             %clause = "\nelseif"
     
-    if ((length of "\%code") == 0):
+    if ((size of "\%code") == 0):
         compile error at %body.source "'if % is % %' block has an empty body"
     %code::append "\nend --when"
     return (..)
-- 
cgit v1.2.3