diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-17 15:58:38 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-17 15:58:38 +0000 |
| commit | f8a790f577366f74645d15e767ce827dfa1f0908 (patch) | |
| tree | 1a0482bea0ff9a62525df9a5d73a6bc4dfe5c3d3 /library/impargs.ml | |
| parent | 61ccbc81a2f3b4662ed4a2bad9d07d2003dda3a2 (diff) | |
Remove useless Liboject.export_function field
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12338 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/impargs.ml')
| -rw-r--r-- | library/impargs.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index edd0aba0e..d27ced220 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -521,9 +521,6 @@ let rebuild_implicits (req,l) = let l' = merge_impls auto m in [ref,l'] in (req,l') -let export_implicits (req,_ as x) = - if req = ImplLocal then None else Some x - let (inImplicits, _) = declare_object {(default_object "IMPLICITS") with cache_function = cache_implicits; @@ -531,8 +528,7 @@ let (inImplicits, _) = subst_function = subst_implicits; classify_function = (fun x -> Substitute x); discharge_function = discharge_implicits; - rebuild_function = rebuild_implicits; - export_function = export_implicits } + rebuild_function = rebuild_implicits } let declare_implicits_gen req flags ref = let imps = compute_global_implicits flags [] ref in |