Исправлен пропуск фактических аргументов если первый конструктор SET

[dsw-obn.git] / src / oberon.c

diff --git a/src/oberon.c b/src/oberon.c
index 4afd4c27825aa3eccf0f95c0d62e40c010e3366d..ebcaa990f9640d227f34c139844e63b26e5defee 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -1285,6 +1285,7 @@ oberon_make_call_proc(oberon_context_t * ctx, oberon_item_t * item, int num_args
        || ((x) == CHAR) \
        || ((x) == STRING) \
        || ((x) == NIL) \
+       || ((x) == LBRACE) \
        || ((x) == LPAREN) \
        || ((x) == NOT))