diff options
author | 2000-10-23 17:37:44 +0000 | |
---|---|---|
committer | 2000-10-23 17:37:44 +0000 | |
commit | 15a65ef4042aebd403c55d0583b14d1a08e2d2f4 (patch) | |
tree | 53f24226ffc02d26c89b8a8c5eabaaa0477999e7 /toplevel/discharge.ml | |
parent | ab12797de9dd59671a3d6b6cce46638cc7b4b590 (diff) |
Rétablissement compatibilité des implicites (2ème) (mais amélioration)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@745 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/discharge.ml')
-rw-r--r-- | toplevel/discharge.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 98581e739..765a63508 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -382,12 +382,13 @@ let process_item oldenv sec_sp acc = function let process_operation = function | Variable (id,expmod_a,stre,sticky,imp) -> - with_implicits imp declare_variable id (expmod_a,stre,sticky) + (* Warning:parentheses needed to get a side-effect from with_implicits *) + with_implicits imp (declare_variable id) (expmod_a,stre,sticky) | Parameter (spid,typ,imp) -> - with_implicits imp declare_parameter spid typ; + with_implicits imp (declare_parameter spid) typ; constant_message spid | Constant (spid,ce,stre,imp) -> - with_implicits imp declare_constant spid (ce,stre); + with_implicits imp (declare_constant spid) (ce,stre); constant_message spid | Inductive (mie,imp) -> let _ = with_implicits imp declare_mind mie in |