From c632705affcbbf0a461041d56e1ddeff3480f297 Mon Sep 17 00:00:00 2001
From: Cedric Soulas <cedric.soulas@mlstate.com>
Date: Thu, 9 Feb 2012 15:29:50 +0100
Subject: [PATCH] [fix] OpaPrint: commas required in js-like pat_record

---
 opalang/opaPrint.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/opalang/opaPrint.ml b/opalang/opaPrint.ml
index 2affcf55..be433b82 100644
--- 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 @,}@]"