Nicolas Cannasse 13 năm trước cách đây
mục cha
commit
df4df4f49a
1 tập tin đã thay đổi với 1 bổ sung0 xóa
  1. 1 0
      parser.ml

+ 1 - 0
parser.ml

@@ -553,6 +553,7 @@ and parse_obj_decl = parser
 	| [< '(Comma,_); s >] ->
 		(match s with parser
 		| [< name, _ = any_ident; '(DblDot,_); e = expr; l = parse_obj_decl >] -> (name,e) :: l
+		| [< '(Const (String name),_); '(DblDot,_); e = expr; l = parse_obj_decl >] -> (name,e) :: l
 		| [< >] -> [])
 	| [< >] -> []