bring back tuples

OCamlPro · Oct 7, 2024 · dda6e0b · dda6e0b
1 parent e3be924
commit dda6e0b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/wasm/wat.ml b/wasm/wat.ml
@@ -311,12 +311,12 @@ module C = struct
     nodehv "loop" [ !$(Block_id.name id); results result ] body
 
   let br id args =
-    node "br" ([ !$(Block_id.name id) ] @ args)
+    node "br" [ !$(Block_id.name id); node "tuple.make" args ]
 
   let br' id = node "br" [ !$(Block_id.name id) ]
 
   let return args =
-    node "return" args
+    node "return" [ node "tuple.make" args ]
 
   let br_on_cast id typ arg =
     node "br_on_cast" [ !$(Block_id.name id); type_name typ; arg ]
@@ -347,7 +347,7 @@ module C = struct
     node "sub" [ type_name name; descr ]
 
   let opt_tuple fields =
-    fields
+    [ node "tuple.make" fields ]
 
   let tuple_make fields = node "tuple.make" fields