:art: mark unions as compound (maybe a way towards unions as structs

diff --git a/src/parse/scan0.c b/src/parse/scan0.c
index 4b0f45aeae8920f63c7b5d9f686446a71de2c337..f84ea8b6813faa5aee719f8b7db34e97578fd393 100644 (file)
--- a/src/parse/scan0.c
+++ b/src/parse/scan0.c
@@ -251,6 +251,7 @@ ANN static Type union_type(const Env env, const Symbol s, const loc_t loc) {
   add_type(env, env->curr, t);
   mk_class(env, t, loc);
   SET_FLAG(t, final);
+  set_tflag(t, tflag_compound);
   if (strncmp(t->name, "Option", 6)) SET_FLAG(t, abstract);
   return t;
 }