diff options
| author | Bruce Hill <bitbucket@bruce-hill.com> | 2018-08-30 14:16:09 -0700 |
|---|---|---|
| committer | Bruce Hill <bitbucket@bruce-hill.com> | 2018-08-30 14:16:18 -0700 |
| commit | 18126da9c538046a93715d829722c818773b9ac1 (patch) | |
| tree | 3a88e43636b85534ded21abd9f9f106b8ffbc037 /core/control_flow.nom | |
| parent | ba00294badff9d5f5d55e1080a17b13fea961f55 (diff) | |
Auto-upgraded to 3.7
Diffstat (limited to 'core/control_flow.nom')
| -rw-r--r-- | core/control_flow.nom | 32 |
1 files changed, 16 insertions, 16 deletions
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 (..) |
