[fix] compiler, parser: fragment should be always coerce

MLstate · Feb 23, 2012 · 1b39c01 · 1b39c01
1 parent 6f09c57
commit 1b39c01
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/opalang/classic_syntax/parser_utils.ml b/opalang/classic_syntax/parser_utils.ml
@@ -1143,9 +1143,10 @@ let arg_default (o,label) =
     | Some o -> o
 
 let create_fragment l label =
+  coerce_name_expr (
   match l with
     | [h] -> h
-    | l -> coerce_name_expr (record [("fragment", list_expr_of_expr_list l label)]) (xml_typename ())
+    | l -> (record [("fragment", list_expr_of_expr_list l label)])) (xml_typename ())
 
 let create_textnode str =
   coerce_name_expr (record [("text", string2 str)]) (xml_typename ())