diff options
| author | filliatr | 2000-11-08 05:49:29 +0000 |
|---|---|---|
| committer | filliatr | 2000-11-08 05:49:29 +0000 |
| commit | b6c0742c0a2cc632a44a94951448fee52ef07dbf (patch) | |
| tree | 6cbbc2f302381bbf0a9c1e50555ddc255977fece /parsing | |
| parent | a20954f5c5a26efa37a3902b50473e1a3adb6caa (diff) | |
out_variable (Liboject.obj -> ...) distibgue de get_variable
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@821 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/pretty.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/pretty.ml b/parsing/pretty.ml index 288581c674..7300f126bc 100644 --- a/parsing/pretty.ml +++ b/parsing/pretty.ml @@ -186,7 +186,7 @@ let print_mutual sp mib = implicit_args_msg sp mipv >]) let print_section_variable sp = - let ((id,_,_) as d,_,_) = out_variable sp in + let ((id,_,_) as d,_,_) = get_variable sp in let l = implicits_of_var id in [< print_named_decl d; print_impl_args l; 'fNL >] @@ -329,7 +329,7 @@ let crible (fn : string -> env -> constr -> unit) name = | (spopt,Lib.Leaf lobj)::rest -> (match (spopt,object_tag lobj) with | (_,"VARIABLE") -> - let ((idc,_,typ),_,_) = out_variable spopt in + let ((idc,_,typ),_,_) = get_variable spopt in if (head_const (body_of_type typ)) = const then fn (string_of_id idc) env (body_of_type typ); crible_rec rest @@ -454,7 +454,7 @@ let print_local_context () = | [] -> [< >] | (sp,Lib.Leaf lobj)::rest -> if "VARIABLE" = object_tag lobj then - let (d,_,_) = out_variable sp in + let (d,_,_) = get_variable sp in [< print_var_rec rest; print_named_decl d >] else |