diff options
| author | herbelin | 2003-04-09 15:58:14 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-09 15:58:14 +0000 |
| commit | 6725bbe3fa7a20941b4ff84c67d7cda7e7988be6 (patch) | |
| tree | acaf39e3e1c10b999d92d0102a6a7e58db1f0f74 /toplevel | |
| parent | 39cd2e369cc4871bf650e4f4f4a667c0e6b4d2d0 (diff) | |
Mécanisme plus simple et efficace pour traduire les implicites
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3889 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernac.ml | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 5da98da625..9016aa9893 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -140,21 +140,15 @@ let rec vernac_com interpfun (loc,com) = Options.v7_only := true; if !translate_file then msgnl (pr_comments !comments) | _ -> - let protect = match com with (* Pour gérer les implicites *) - | VernacFixpoint _ | VernacInductive _ -> - fun f x -> - (let fs = States.freeze () in - try let e = f x in States.unfreeze fs; e - with e -> States.unfreeze fs; raise e) - | _ -> fun f -> f in if !translate_file then msgnl - (pr_comments !comments ++ hov 0 (protect pr_vernac com) ++ - sep_end) + (pr_comments !comments ++ hov 0 (pr_vernac com) ++ sep_end) else msgnl (hov 4 (str"New Syntax:" ++ fnl() ++ pr_comments !comments ++ - protect pr_vernac com ++ sep_end))); + pr_vernac com ++ sep_end))); + Constrintern.set_temporary_implicits_in []; + Constrextern.set_temporary_implicits_out []; comments := None; Format.set_formatter_out_channel stdout); interp com; |