Format + changelog

Author: vouillon

CHANGES.md

@@ -14,6 +14,7 @@
 * Runtime: fix reading from the pseudo-filesystem (#1859)
 * Runtime: fix initialization of standard streams under Windows (#1849)
 * Compiler: fix stack overflow issues with double translation (#1869)
+* Lib: make the Wasm version of Json.output work with native ints and JavaScript objects (#1872)
 
 # 6.0.1 (2025-02-07) - Lille
 

lib/js_of_ocaml/json.ml

@@ -116,9 +116,9 @@ let rec write b v =
           write_int64 b i
       | id -> failwith (Printf.sprintf "Json.output: unsupported custom value %s " id)
     else if t = Obj.abstract_tag
-      then
-        (* Presumably a JavaScript value *)
-        Buffer.add_string b (Js.to_string (json##stringify v))
+    then
+      (* Presumably a JavaScript value *)
+      Buffer.add_string b (Js.to_string (json##stringify v))
     else failwith (Printf.sprintf "Json.output: unsupported tag %d " t)
 
 let to_json v =

lib/tests/test_json.ml

@@ -63,7 +63,13 @@ let%expect_test _ =
   [%expect {| 2 |}]
 
 let%expect_test "JavaScript object" =
-  let x = object%js val x = 1 val y = Js.string "abcd" end in
+  let x =
+    object%js
+      val x = 1
+
+      val y = Js.string "abcd"
+    end
+  in
   let s = Json.output x in
   let s1 = Js.to_string s in
   Printf.printf "%s\n" s1;