Évaluation forcée des objets mis dans les streams

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1107 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 10 insertions, 3 deletions

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 79dbad6e0..ac8cc92f1 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -154,14 +154,21 @@ and default_tacpr = function
 let pr_var_decl env (id,c,typ) =
   let pbody = match c with
     | None ->  [<  >]
-    | Some c ->  [< 'sTR" := "; prterm_env env c >] in
-  let ptyp = [< 'sTR" : "; prtype_env env typ >] in
+    | Some c ->
+	(* Force evaluation *) 
+	let pb = prterm_env env c in
+	[< 'sTR" := "; pb >] in
+  let pt = prtype_env env typ in
+  let ptyp = [< 'sTR" : "; pt >] in
   [< pr_id id ; hOV 0 [< pbody; ptyp >] >]
 
 let pr_rel_decl env (na,c,typ) =
   let pbody = match c with
     | None ->  [<  >]
-    | Some c ->  [< 'sTR" :="; 'sPC; prterm_env env c >] in
+    | Some c ->
+	(* Force evaluation *) 
+	let pb = prterm_env env c in
+	[< 'sTR" :="; 'sPC; pb >] in
   let ptyp = prtype_env env typ in
   match na with
     | Anonymous -> [< 'sTR"<>" ; 'sPC; pbody; 'sTR" :"; 'sPC; ptyp >]