Fix ocaml#3948

git-svn-id: http://caml.inria.fr/svn/ocaml/version/3.09@7309 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
dra27 · Jan 5, 2006 · f234bc0 · f234bc0
1 parent 37df87d
commit f234bc0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/camlp4/etc/pr_o.ml b/camlp4/etc/pr_o.ml
@@ -1408,7 +1408,8 @@ pr_expr.pr_levels :=
         <:expr< while $_$ do { $list:_$ } >> | <:expr< ($list: _$) >> |
         <:expr< let $opt:_$ $list:_$ in $_$ >> |
         <:expr< let module $_$ = $_$ in $_$ >> |
-        <:expr< new $list:_$ >> | 
+	(* Note: `new' is treated differently in pa_o and in pa_r,
+	   and should not occur at this level *)
         <:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
           fun curr next dg k ->
             [: `S LO "("; `expr e "" [: `HVbox [: `S RO ")"; k :] :] :]