:art: more on internal ops

diff --git a/src/parse/scan1.c b/src/parse/scan1.c
index 89ce37987b6d6fde7bba40166262b8f008a9f3f5..1d034d2ace694b12f4ad54948e65ad96e1f4d8b4 100644 (file)
--- a/src/parse/scan1.c
+++ b/src/parse/scan1.c
@@ -605,6 +605,13 @@ ANN static m_bool scan_internal(const Env env, const Func_Base *base) {
   if (op == insert_symbol("@conditional") ||
       op == insert_symbol("@unconditional"))
     return scan_internal_int(env, base);
+  if(op == insert_symbol("@array_init") ||
+     op == insert_symbol("@each")       ||
+     op == insert_symbol("@each_idx")   ||
+     op == insert_symbol("@each_init")  ||
+     op == insert_symbol("@each_val")   ||
+     op == insert_symbol("@partial"))
+      ERR_B(base->pos, "operator '%s' not allowed", s_name(op));
   return GW_OK;
 }
 

diff --git a/tests/internal_op/forbidden_operator.gw b/tests/internal_op/forbidden_operator.gw
new file mode 100644 (file)
index 0000000..9c279af
--- /dev/null
+++ b/tests/internal_op/forbidden_operator.gw
@@ -0,0 +1 @@
+operator bool @each(int i, int j) { return true; }