:art: Forbid tuple acces by member

diff --git a/src/parse/tuple.c b/src/parse/tuple.c
index 38b88ea2dd1867aceb0443a3fd677d4051c89f06..6edb2e17a6fbd3f9ccd072d5c0d39e21f88deed0 100644 (file)
--- a/src/parse/tuple.c
+++ b/src/parse/tuple.c
@@ -41,7 +41,7 @@ ANN Type tuple_type(const Env env, const Vector v, const loc_t pos) {
   Type_List tlbase = NULL, tl = NULL;
   for(m_uint i = 0; i < vector_size(v); ++i) {
     char name[num_digit(i) + 2];
-    sprintf(name, "e%lu", i);
+    sprintf(name, "@e%lu", i);
     const Symbol sym = insert_symbol(name);
     const Type t = (Type)vector_at(v, i);
     const Symbol tsym = insert_symbol(t != 1 ? t->name : "@Undefined");

diff --git a/tests/tuple/object2tuple.gw b/tests/tuple/object2tuple.gw
index 4bb432e3abd54123bb687012947845422ff5ae05..d62b0534d128bc3e6b2d18d861432c6e66659efd 100644 (file)
--- a/tests/tuple/object2tuple.gw
+++ b/tests/tuple/object2tuple.gw
@@ -4,5 +4,5 @@ class Person {
 }
 
 Person p @=> <~string,int~>Tuple @t;
-<<<t.e0>>>;
-<<<t.e1>>>;
+<<<t[0]>>>;
+<<<t[1]>>>;

diff --git a/tests/tuple/object2tuple_err.gw b/tests/tuple/object2tuple_err.gw
index 525c774e215152da12c38454c97941606d7e4149..78d6554cff16633d3a240dad50d44dfb945b4f9c 100644 (file)
--- a/tests/tuple/object2tuple_err.gw
+++ b/tests/tuple/object2tuple_err.gw
@@ -4,5 +4,5 @@ class Person {
 }
 
 Person p @=> <~string,string~>Tuple @t;
-<<<t.e0>>>;
-<<<t.e1>>>;
+<<<t[0]>>>;
+<<<t[1]>>>;

diff --git a/tests/tuple/tuple_implicit.gw b/tests/tuple/tuple_implicit.gw
index c589d3097d49afa4f10f3562c480d72abcea84ec..419a94ee7dc8062e222ca4378d9ce1e7ceeebf4d 100644 (file)
--- a/tests/tuple/tuple_implicit.gw
+++ b/tests/tuple/tuple_implicit.gw
@@ -1,6 +1,5 @@
 #! [contains] Tom
 fun void test(<~string~>Tuple t) {
-#!  <<< t.e0 >>>;
   <<< t[0] >>>;
 }