patches/ocaml-3.09.1.patch

   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 :] ]}];