2 ===================================================================
3 retrieving revision 6.36
4 retrieving revision 6.38
6 *** CHANGES 15 Mar 2011 12:36:08 -0000 6.36
7 --- CHANGES 16 Mar 2011 16:52:42 -0000 6.38
11 + Camlp5 Version 6.02.3:
12 + ----------------------
14 + * [16 Mar 11] Fixed bug: incorrect compilation of label patterns of the
15 + form ~a:b (or ~{a = b} in revised syntax) in class declarations.
16 + * [16 Mar 11] Fixed bug: error while printing label patterns ~a:b with
17 + pr_o.cmo (error message "labels not pretty printed (in patt)").
19 Camlp5 Version 6.02.2:
20 ----------------------
23 ===================================================================
24 retrieving revision 6.51
25 diff -c -r6.51 pr_o.ml
26 *** etc/pr_o.ml 15 Mar 2011 13:49:10 -0000 6.51
27 --- etc/pr_o.ml 16 Mar 2011 15:18:58 -0000
30 | <:patt< _ >> -> pprintf pc "_"
31 | <:patt:< ?{$_$} >> | <:patt:< ?{$_$ = $_$} >> | <:patt:< ?{$_$} >> |
32 <:patt:< ?{$_$ = ?{$_$ = $_$}} >> | <:patt:< ?{$_$ = $_$} >> |
33 ! <:patt:< ~{$_$} >> | <:patt:< ~{$_$ = $_$} >> ->
34 error loc "labels not pretty printed (in patt)"
36 failwith "polymorphic variants not pretty printed; add pr_ro.cmo"
38 | <:patt< _ >> -> pprintf pc "_"
39 | <:patt:< ?{$_$} >> | <:patt:< ?{$_$ = $_$} >> | <:patt:< ?{$_$} >> |
40 <:patt:< ?{$_$ = ?{$_$ = $_$}} >> | <:patt:< ?{$_$ = $_$} >> |
41 ! <:patt:< ~{$list:_$} >> ->
42 error loc "labels not pretty printed (in patt)"
44 failwith "polymorphic variants not pretty printed; add pr_ro.cmo"
46 ===================================================================
47 retrieving revision 6.32
48 diff -c -r6.32 ast2pt.ml
49 *** main/ast2pt.ml 15 Mar 2011 12:36:08 -0000 6.32
50 --- main/ast2pt.ml 16 Mar 2011 15:57:40 -0000
58 - [ Some _ -> error loc "label not implemented in that case 1"
64 | p -> error loc "label not implemented in that case 2" ]
66 mkpcl loc (pcl_fun lab None (patt p) (class_expr ce))
68 | [] | [_ :: _] -> error ploc "case class multi lab not yet impl" ]
76 | p -> error loc "label not implemented in that case 2" ]
83 mkpcl loc (pcl_fun lab None (patt p) (class_expr ce))
85 | [] | [_ :: _] -> error ploc "case class multi lab not yet impl" ]
86 Index: ocaml_src/main/ast2pt.ml
87 ===================================================================
88 retrieving revision 6.32
89 diff -c -r6.32 ast2pt.ml
90 *** ocaml_src/main/ast2pt.ml 15 Mar 2011 12:36:09 -0000 6.32
91 --- ocaml_src/main/ast2pt.ml 16 Mar 2011 16:05:41 -0000
95 begin match uv lppo with
99 - Some _ -> error loc "label not implemented in that case 1"
105 | p -> error loc "label not implemented in that case 2"
107 mkpcl loc (pcl_fun lab None (patt p) (class_expr ce))
108 | [] | _ :: _ -> error ploc "case class multi lab not yet impl"
112 begin match uv lppo with
117 | p -> error loc "label not implemented in that case 2"
124 mkpcl loc (pcl_fun lab None (patt p) (class_expr ce))
125 | [] | _ :: _ -> error ploc "case class multi lab not yet impl"