ocaml: don't print commas in hash-maps

ragne · Dec 17, 2015 · 68409f8 · 68409f8
1 parent 6703e76
commit 68409f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml/printer.ml b/ocaml/printer.ml
@@ -31,7 +31,7 @@ let rec pr_str mal_obj print_readably =
       | T.Vector { T.value = xs } ->
           "[" ^ (String.concat " " (List.map (fun s -> pr_str s r) xs)) ^ "]"
       | T.Map { T.value = xs } ->
-         "{" ^ (Types.MalMap.fold (fun k v s -> s ^ (if s = "" then "" else ", ") ^ (pr_str k r)
+         "{" ^ (Types.MalMap.fold (fun k v s -> s ^ (if s = "" then "" else " ") ^ (pr_str k r)
                                                 ^ " " ^ (pr_str v r)) xs "")
          ^ "}"
       | T.Fn f -> "#<fn>"