diff options
| author | filliatr | 2000-07-20 16:46:15 +0000 |
|---|---|---|
| committer | filliatr | 2000-07-20 16:46:15 +0000 |
| commit | b6337996e891f3fa33e0ff01a7dae13c469d6055 (patch) | |
| tree | 119d52ec97de7ad8e56d9b5c74373e3a4fd5a954 /parsing | |
| parent | f8a0d5e7f5efcd588627a2eadeb6e8f9f7d597c6 (diff) | |
portage Refine
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@559 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/astterm.ml | 2 | ||||
| -rw-r--r-- | parsing/termast.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index d41e692339..33325bf0b9 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -588,7 +588,7 @@ let interp_casted_constr1 sigma env lvar lmeta com typ = interp_rawconstr_gen sigma env false (List.map (fun x -> string_of_id (fst x)) lvar) com and rtype=fun lst -> retype_list sigma env lst in - ise_resolve_casted_gen sigma env (rtype lvar) (rtype lmeta) typ c;; + ise_resolve_casted_gen true sigma env (rtype lvar) (rtype lmeta) typ c;; (* let dbize_fw sigma env com = dbize FW sigma env com diff --git a/parsing/termast.ml b/parsing/termast.ml index 4bc238c4ce..7c4568af12 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -32,7 +32,7 @@ let print_casts = ref false (* This governs printing of implicit arguments. When [print_implicits] is on then [print_implicits_explicit_args] tells - how jimplicit args are printed. If on, implicit args are printed + how implicit args are printed. If on, implicit args are printed prefixed by "!" otherwise the function and not the arguments is prefixed by "!" *) let print_implicits = ref false |