fixup! Add optimization rule for Vector.fromList and Array.fromList

minoki · Sep 11, 2024 · e36fa8c · e36fa8c
1 parent 18122a4
commit e36fa8c
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/codegen-lua.sml b/src/codegen-lua.sml
@@ -1419,6 +1419,15 @@ struct
                      ( fn a => L.IndexExp (a, L.ConstExp (L.LiteralString "n"))
                      , PURE
                      )
+               | Primitives.Array_fromList =>
+                   doUnaryExp
+                     ( fn xs =>
+                         L.CallExp
+                           ( L.VarExp (L.PredefinedId "_VectorOrArray_fromList")
+                           , vector [xs]
+                           )
+                     , PURE
+                     )
                | Primitives.Unsafe_Vector_sub _ =>
                    doBinaryExp
                      ( fn (vec, i) =>