:art: Test get_type_name

diff --git a/include/match.h b/include/match.h
index fed283bc3a4f7fdd24725b61645c707ea8c980e5..5b1d4b9bc13af6303cf7a7d4716a8c3c40ae81fe 100644 (file)
--- a/include/match.h
+++ b/include/match.h
@@ -22,9 +22,6 @@ ANN static inline void match_unmap(struct Match_ * const match) {
   for(m_uint i = 0; i < sz; ++i) {
     const Exp e = (Exp)VKEY(map, i),
       next = (i < (sz-2)) ? (Exp)VKEY(map, i + 1) : NULL;
-    if(!e)
-      continue;
-    VKEY(map, i) = VKEY(map, i+1) = 0;//
     e->next = next;
   }
   map_release(map);

diff --git a/tests/tree/get_type_name_test.gw b/tests/tree/get_type_name_test.gw
new file mode 100644 (file)
index 0000000..c75884a
--- /dev/null
+++ b/tests/tree/get_type_name_test.gw
@@ -0,0 +1,4 @@
+class <~A, B~> C{}
+class <~A~> D {}
+<~ <~int~>D, <~int~>D ~>C c;
+<<< c >>>;