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 /toplevel | |
| 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 'toplevel')
| -rw-r--r-- | toplevel/discharge.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 5b09315d98..01e58b3441 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -131,7 +131,7 @@ let process_object oldenv sec_sp (ops,ids_to_discard,work_alist) (sp,lobj) = let tag = object_tag lobj in match tag with | "VARIABLE" -> - let ((id,c,t),stre,sticky) = out_variable sp in + let ((id,c,t),stre,sticky) = get_variable sp in if stre = (DischargeAt sec_sp) or ids_to_discard <> [] then (ops,id::ids_to_discard,work_alist) else |