From 91ff87e1e60e13bf95784a794b86e6d2661be7c7 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 14 Dec 2000 15:26:22 +0000 Subject: Évaluation forcée des objets mis dans les streams MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1107 85f007b7-540e-0410-9357-904b9bb8a0f7 --- parsing/printer.ml | 13 ++++++++++--- 1 file 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 >] -- cgit v1.2.3