Fix WAT debug output

The helper functions for partial application where written twice.

Author: vouillon

compiler/lib-wasm/curry.ml

@@ -359,6 +359,7 @@ module Make (Target : Target_sig.S) = struct
       }
 
   let f ~context =
+    let context = { context with other_fields = context.other_fields } in
     IntMap.iter
       (fun arity name ->
         let f = apply ~context ~arity ~name in
@@ -388,5 +389,6 @@ module Make (Target : Target_sig.S) = struct
       (fun arity name ->
         let f = dummy ~context ~cps:true ~arity ~name in
         context.other_fields <- f :: context.other_fields)
-      context.cps_dummy_funs
+      context.cps_dummy_funs;
+    context
 end

compiler/lib-wasm/curry.mli

@@ -17,5 +17,5 @@
  *)
 
 module Make (_ : Target_sig.S) : sig
-  val f : context:Code_generation.context -> unit
+  val f : context:Code_generation.context -> Code_generation.context
 end

compiler/lib-wasm/generate.ml

@@ -1442,7 +1442,7 @@ module Generate (Target : Target_sig.S) = struct
     toplevel_name, js_code
 
   let output ~context =
-    Curry.f ~context;
+    let context = Curry.f ~context in
     let imports =
       List.concat
         (List.map