Добавлена проверка базы записи на рекурсивное расширение

[dsw-obn.git] / src / oberon-internals.h

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index 96fd1662ba6c3e46c429995160342afbca87a2e3..fa9b5d5280903bf0ea16496170cb3e81fcb69045 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -211,7 +211,8 @@ enum oberon_operator_kind
        OP_INTERSECTION,
        OP_DIFFERENCE,
        OP_SYM_DIFFERENCE,
-       OP_COMPLEMENTATION
+       OP_COMPLEMENTATION,
+       OP_IN
 };
 
 struct oberon_item_t
@@ -224,7 +225,6 @@ struct oberon_item_t
        enum oberon_mode_kind mode;
        long integer;
        double real;
-       int boolean;
        char * string;
        oberon_object_t * var;