| blob | e6a80a197a4ecd5e96d2a4d02603efd720c86413 |
1 diff -uwNr ./ocaml-3.09.1/camlp4/etc/pr_o.ml ./ocaml-3.09.1_new/camlp4/etc/pr_o.ml
2 --- ./camlp4/etc/pr_o.ml 2006-01-03 19:12:30.000000000 +0100
3 +++ ./camlp4/etc/pr_o.ml 2005-08-13 22:59:37.000000000 +0200
4 @@ -1407,9 +1407,7 @@
5 <:expr< for $_$ = $_$ $to:_$ $_$ do { $list:_$ } >> |
6 <:expr< while $_$ do { $list:_$ } >> | <:expr< ($list: _$) >> |
7 <:expr< let $opt:_$ $list:_$ in $_$ >> |
8 - <:expr< let module $_$ = $_$ in $_$ >> |
9 - <:expr< new $list:_$ >> |
10 - <:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
11 + <:expr< let module $_$ = $_$ in $_$ >> as e ->
12 fun curr next dg k ->
13 [: `S LO "("; `expr e "" [: `HVbox [: `S RO ")"; k :] :] :]
14 | e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}];
15 diff -uwNr ./ocaml-3.09.1/camlp4/etc/pr_r.ml ./ocaml-3.09.1_new/camlp4/etc/pr_r.ml
16 --- ./camlp4/etc/pr_r.ml 2006-01-03 19:12:30.000000000 +0100
17 +++ ./camlp4/etc/pr_r.ml 2005-08-13 22:59:37.000000000 +0200
18 @@ -1315,8 +1315,7 @@
19 <:expr< while $_$ do { $list:_$ } >> |
20 <:expr< let $opt:_$ $list:_$ in $_$ >> |
21 <:expr< let module $_$ = $_$ in $_$ >> |
22 - <:expr< new $list:_$ >> |
23 - <:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
24 + <:expr< new $list:_$ >> as e ->
25 fun curr next _ k ->
26 [: `S LO "("; `expr e [: `HVbox [: `S RO ")"; k :] :] :]
27 | e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}];