diff options
| author | notin | 2006-09-12 14:52:07 +0000 |
|---|---|---|
| committer | notin | 2006-09-12 14:52:07 +0000 |
| commit | ade5ae3ee5931180211260b943e5095188518c03 (patch) | |
| tree | 3303546664bf62dcbe65fba0d3083d25497ca46b /toplevel/vernac.ml | |
| parent | 87722d2a5d9592f08fafa2b4d56c9ba7aadd1033 (diff) | |
Indentation + svnprop
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9133 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernac.ml')
| -rw-r--r-- | toplevel/vernac.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index f3bc0793f2..746a9a9f4d 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -162,12 +162,12 @@ let rec vernac_com interpfun (loc,com) = | v -> if not !just_parsing then interpfun v in - try - if do_translate () then pr_new_syntax loc (Some com); - interp com - with e -> - Format.set_formatter_out_channel stdout; - raise (DuringCommandInterp (loc, e)) + try + if do_translate () then pr_new_syntax loc (Some com); + interp com + with e -> + Format.set_formatter_out_channel stdout; + raise (DuringCommandInterp (loc, e)) and vernac interpfun input = vernac_com interpfun (parse_phrase input) |
