diff options
| author | herbelin | 2003-10-11 15:46:37 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-11 15:46:37 +0000 |
| commit | 797785595c39411dfb7d16a305748375091c4b6e (patch) | |
| tree | c12628bc86cbb7ca7c592009858ebf8af460102e | |
| parent | 4274fe4cc45472beb4b16c5aca4033b02506a519 (diff) | |
translate_file etait abusivement positionne
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4600 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/coqtop.ml | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 6cb8ddb29b..85a289ff36 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -61,7 +61,11 @@ let add_load_vernacular s = load_vernacular_list := (make_suffix s ".v") :: !load_vernacular_list let load_vernacular () = List.iter - (fun s -> with_option translate_file (Vernac.load_vernac false) s) + (fun s -> + if Options.do_translate () then + with_option translate_file (Vernac.load_vernac false) s + else + Vernac.load_vernac false s) (List.rev !load_vernacular_list) let load_vernacular_obj = ref ([] : string list) @@ -82,7 +86,11 @@ let add_compile verbose s = compile_list := (verbose,s) :: !compile_list let compile_files () = List.iter - (fun (v,f) -> with_option translate_file (Vernac.compile v) f) + (fun (v,f) -> + if Options.do_translate () then + with_option translate_file (Vernac.compile v) f + else + Vernac.compile v f) (List.rev !compile_list) let re_exec_version = ref "" |