do not create tuple of arity less than two

OCamlPro · Oct 7, 2024 · 86f0b40 · 86f0b40
1 parent 3df8f1f
commit 86f0b40
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/wasm/wat.ml b/wasm/wat.ml
@@ -254,7 +254,12 @@ module C = struct
     | Rvar v -> reft v
     | Tuple l -> node "tuple" (List.map type_atom l)
 
-  let tuple_make fields = node "tuple.make" (Atom (List.length fields |> string_of_int) :: fields )
+  let tuple_make fields =
+    match fields with
+    | [] -> assert false
+    | [ field ] ->  field
+    | fields ->
+      node "tuple.make" (Atom (List.length fields |> string_of_int) :: fields )
 
   let local l t = node "local" [ !$(Expr.Local.var_name l); type_atom t ]