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/impargs.ml | |
| 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/impargs.ml')
| -rw-r--r-- | library/impargs.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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. *) |