Revert "Fix WAT debug output"

This reverts commit d988760.

Author: vouillon

compiler/lib-wasm/curry.ml

@@ -359,7 +359,6 @@ 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
@@ -389,6 +388,5 @@ 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
+      context.cps_dummy_funs
 end

compiler/lib-wasm/curry.mli

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

compiler/lib-wasm/generate.ml

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