diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-22 14:02:22 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-22 14:02:22 +0000 |
| commit | 2debc4ab0b171963afff40cc3183e4e92cca9a0e (patch) | |
| tree | 5731b43d962a6cb731ca2b3295a863be083bd7be /library/libobject.mli | |
| parent | b8c9be5ae052c936d069630a7480fd3691c1aad0 (diff) | |
Correct implementation of discharging of implicit arguments and add new
setting "Set Manual Implicit Arguments" for manual-only implicits.
Fix test-suite script. This removes the discharge_info argument of
"dynamic" object's rebuild function.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11242 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/libobject.mli')
| -rw-r--r-- | library/libobject.mli | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/library/libobject.mli b/library/libobject.mli index 33ad67c84..61e650e6b 100644 --- a/library/libobject.mli +++ b/library/libobject.mli @@ -71,8 +71,6 @@ open Mod_subst type 'a substitutivity = Dispose | Substitute of 'a | Keep of 'a | Anticipate of 'a -type discharge_info = (identifier * bool * bool) list - type 'a object_declaration = { object_name : string; cache_function : object_name * 'a -> unit; @@ -81,7 +79,7 @@ type 'a object_declaration = { classify_function : object_name * 'a -> 'a substitutivity; subst_function : object_name * substitution * 'a -> 'a; discharge_function : object_name * 'a -> 'a option; - rebuild_function : discharge_info * 'a -> 'a; + rebuild_function : 'a -> 'a; export_function : 'a -> 'a option } (* The default object is a "Keep" object with empty methods. @@ -116,5 +114,5 @@ val subst_object : object_name * substitution * obj -> obj val classify_object : object_name * obj -> obj substitutivity val export_object : obj -> obj option val discharge_object : object_name * obj -> obj option -val rebuild_object : discharge_info * obj -> obj +val rebuild_object : obj -> obj val relax : bool -> unit |