[fix] OpaPrint: commas required in js-like pat_record

MLstate · Mar 8, 2012 · c632705 · c632705
1 parent 30c0cb5
commit c632705
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/opalang/opaPrint.ml b/opalang/opaPrint.ml
@@ -1188,7 +1188,7 @@ module Js = struct
           then
             let pp_field f (field, _) = self#field f field in
             pp f "@[<hv2>~{ %a%s @,}@]"
-              (Format.pp_list "@, " pp_field) fields
+              (Format.pp_list ",@ " pp_field) fields
               rowvar
           else
             pp f "@[<hv2>{ %a%s @,}@]"