Added necessary cast when selecting from the completely generic tuple…

… representation.
actonlang · Sep 22, 2023 · 3d3f7af · 3d3f7af
1 parent f470a32
commit 3d3f7af
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/compiler/Acton/CodeGen.hs b/compiler/Acton/CodeGen.hs
@@ -755,7 +755,8 @@ instance Gen Expr where
     gen env (TApp _ e ts)           = genInst env ts e
     gen env (IsInstance _ e c)      = gen env primISINSTANCE <> parens (gen env e <> comma <+> genQName env c)
     gen env (Dot _ e n)             = genDot env [] e n
-    gen env (DotI _ e i)            = gen env e <> text "->" <> gen env componentsKW <> brackets (pretty i)
+    gen env e0@(DotI _ e i)         = parens $ parens (gen env t) <> gen env e <> text "->" <> gen env componentsKW <> brackets (pretty i)
+      where t                       = typeOf env e0
     gen env (RestI _ e i)           = gen env eNone <> semi <+> text "// CodeGen for tuple tail not implemented"
     gen env (Tuple _ p KwdNil)      
        | n == 0                     = gen env primNEWTUPLE0