diff options
author | Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
---|---|---|
committer | Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
commit | 208a0f7bfa5249f9795e6e225f309cbe715c0fad (patch) | |
tree | 591e9e512063e34099782e2518573f15ffeac003 /toplevel/vernac.ml | |
parent | de0085539583f59dc7c4bf4e272e18711d565466 (diff) |
Imported Upstream version 8.1~gammaupstream/8.1.gamma
Diffstat (limited to 'toplevel/vernac.ml')
-rw-r--r-- | toplevel/vernac.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index afe72f0f..710b814d 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: vernac.ml 8924 2006-06-08 17:49:01Z notin $ *) +(* $Id: vernac.ml 9133 2006-09-12 14:52:07Z notin $ *) (* Parsing of vernacular. *) @@ -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) |