From 15a65ef4042aebd403c55d0583b14d1a08e2d2f4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 23 Oct 2000 17:37:44 +0000
Subject: 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
---
 toplevel/discharge.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml
index 98581e739a..765a63508a 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
-- 
cgit v1.2.3