INCL EXCL to Include Exclude

diff --git a/src/Oberon.y b/src/Oberon.y
index 9da65dc52447e6c6f6e69b628ffa4a65c89a5b4f..de86c05acb09cca941d4de2f88e714b7db2cc831 100644 (file)
--- 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 a52d1029acbd3a65cb7796152b52d4e3ba3f18ad..7c060d0246eac5eaf3a69b7e6cfa306b4d44c2d3 100644 (file)
--- 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 eedbf5478792608adac4edcd4bc9df0b498ff98c..eff9cc9f5cf6e9fdfdcd99f7ea4921f0d33cee77 100644 (file)
--- 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 510a632f99c1dd46ae7dd3b398bdca8e825afd3f..d6d91354e55d9f43c47da45f1e85be92133a26c4 100644 (file)
--- 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);