From f234bc0bca825810ebd08523f6e50ac7dcbe508c Mon Sep 17 00:00:00 2001
From: Michel Mauny <Michel.Mauny@ensta.fr>
Date: Thu, 5 Jan 2006 10:44:29 +0000
Subject: [PATCH] Fix #3948

git-svn-id: http://caml.inria.fr/svn/ocaml/version/3.09@7309 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 camlp4/etc/pr_o.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/camlp4/etc/pr_o.ml b/camlp4/etc/pr_o.ml
index ca585ac7f8ba..2f77d5937dfd 100644
--- 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 :] :] :]