From: mike lowis <mike@mdlowis.com>
Date: Sat, 10 Apr 2021 00:37:58 +0000 (-0400)
Subject: INCL EXCL to Include Exclude
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=fbcfbd73f6459e4d1d6c2ff6a923cb954c0a426f;p=proto%2Fobnc.git

INCL EXCL to Include Exclude
---

diff --git a/src/Oberon.y b/src/Oberon.y
index 9da65dc..de86c05 100644
--- a/src/Oberon.y
+++ b/src/Oberon.y
@@ -3594,9 +3594,9 @@ static Trees_Node PredeclaredProcedureAST(const char procName[], Trees_Node expL
 		{"AsReal", TREES_FLT_PROC},
 		{"Assert", TREES_ASSERT_PROC},
 		{"Decrement", TREES_DEC_PROC},
-		{"EXCL", TREES_EXCL_PROC},
+		{"Exclude", TREES_EXCL_PROC},
 		{"Floor", TREES_FLOOR_PROC},
-		{"INCL", TREES_INCL_PROC},
+		{"Include", TREES_INCL_PROC},
 		{"Increment", TREES_INC_PROC},
 		{"Length", TREES_LEN_PROC},
 		{"New", TREES_NEW_PROC},
diff --git a/src/Table.c b/src/Table.c
index a52d102..7c060d0 100644
--- a/src/Table.c
+++ b/src/Table.c
@@ -96,9 +96,9 @@ void Table_Init(void)
 		{"Byte", TREES_TYPE_KIND, TREES_BYTE_TYPE},
 		{"Char", TREES_TYPE_KIND, TREES_CHAR_TYPE},
 		{"Decrement", TREES_PROCEDURE_KIND, TREES_DEC_PROC},       /* Operator */
-		{"EXCL", TREES_PROCEDURE_KIND, TREES_EXCL_PROC},
+		{"Exclude", TREES_PROCEDURE_KIND, TREES_EXCL_PROC},
 		{"Floor", TREES_PROCEDURE_KIND, TREES_FLOOR_PROC},
-		{"INCL", TREES_PROCEDURE_KIND, TREES_INCL_PROC},
+		{"Include", TREES_PROCEDURE_KIND, TREES_INCL_PROC},
 		{"Increment", TREES_PROCEDURE_KIND, TREES_INC_PROC},       /* Operator */
 		{"Int", TREES_TYPE_KIND, TREES_INTEGER_TYPE},
 		{"Length", TREES_PROCEDURE_KIND, TREES_LEN_PROC},
diff --git a/src/y.tab.c b/src/y.tab.c
index eedbf54..eff9cc9 100644
--- a/src/y.tab.c
+++ b/src/y.tab.c
@@ -5572,9 +5572,9 @@ static Trees_Node PredeclaredProcedureAST(const char procName[], Trees_Node expL
 		{"AsReal", TREES_FLT_PROC},
 		{"Assert", TREES_ASSERT_PROC},
 		{"Decrement", TREES_DEC_PROC},
-		{"EXCL", TREES_EXCL_PROC},
+		{"Exclude", TREES_EXCL_PROC},
 		{"Floor", TREES_FLOOR_PROC},
-		{"INCL", TREES_INCL_PROC},
+		{"Include", TREES_INCL_PROC},
 		{"Increment", TREES_INC_PROC},
 		{"Length", TREES_LEN_PROC},
 		{"New", TREES_NEW_PROC},
diff --git a/tests/obnc/passing/T5Statements.obn b/tests/obnc/passing/T5Statements.obn
index 510a632..d6d9135 100644
--- a/tests/obnc/passing/T5Statements.obn
+++ b/tests/obnc/passing/T5Statements.obn
@@ -315,11 +315,11 @@ module T5Statements;
 		Assert(n = -10);
 
 		A := {};
-		INCL(A, 0);
+		Include(A, 0);
 		Assert(A = {0});
 
 		A := {0};
-		EXCL(A, 0);
+		Exclude(A, 0);
 		Assert(A = {});
 
 		New(v);