diff options
| author | herbelin | 2000-05-03 18:04:46 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-03 18:04:46 +0000 |
| commit | 4c9696c6dac1beb1b19fe3bb083dee0b1ef1bd00 (patch) | |
| tree | 49317c7658ba1b6c95d0fbca122676288487f307 /library | |
| parent | 77f8b2363ac3e90587b93806e5780f4fff96ecc7 (diff) | |
suppression de Fw pour les implicites
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@405 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/declare.ml | 2 | ||||
| -rw-r--r-- | library/impargs.ml | 2 | ||||
| -rw-r--r-- | library/impargs.mli | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/library/declare.ml b/library/declare.ml index f186aa18c4..2a9dc279cb 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -269,7 +269,7 @@ let global_reference_imps kind id = | DOPN (MutConstruct ((sp,i),j),_) -> c, list_of_implicits (constructor_implicits ((sp,i),j)) | VAR id -> - c, implicits_of_var kind id + c, implicits_of_var id | _ -> assert false let global env id = diff --git a/library/impargs.ml b/library/impargs.ml index d53d576fbe..06ce6915be 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -101,7 +101,7 @@ let declare_var_implicits id = let imps = auto_implicits (body_of_type ty) in var_table := Idmap.add id imps !var_table -let implicits_of_var _ id = +let implicits_of_var id = list_of_implicits (try Idmap.find id !var_table with Not_found -> No_impl) (* Registration as global tables and roolback. *) diff --git a/library/impargs.mli b/library/impargs.mli index 243eb8031c..8af10d7ec9 100644 --- a/library/impargs.mli +++ b/library/impargs.mli @@ -34,7 +34,7 @@ val inductive_implicits_list : inductive_path -> int list val constant_implicits_list : section_path -> int list val declare_var_implicits : identifier -> unit -val implicits_of_var : Names.path_kind -> identifier -> int list +val implicits_of_var : identifier -> int list type frozen_t val freeze : unit -> frozen_t |