diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-18 13:52:15 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-18 13:52:15 +0000 |
| commit | 168424263f9c8510a4c51d59a2945babd20880f4 (patch) | |
| tree | 8afc3396e03d0568506470b639d2a2d1ba897fa1 /toplevel/vernacentries.ml | |
| parent | 020aa7a8e9bca88631e6d7fa68d1ff462f5af25a (diff) | |
declaration_hooks use Ephemeron
Ideally, any component of the global state that is a function or any
other unmarshallable data should be stocked as an ephemeron to make
the state always marshallable.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16893 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index d63ef9ec1..eb4038721 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -414,11 +414,11 @@ let start_proof_and_print k l hook = start_proof_com k l hook; print_subgoals () -let no_hook = None +let no_hook _ _ = () let vernac_definition_hook = function | Coercion -> Class.add_coercion_hook -| CanonicalStructure -> Some (fun _ -> Recordops.declare_canonical_structure) +| CanonicalStructure -> (fun _ -> Recordops.declare_canonical_structure) | SubClass -> Class.add_subclass_hook | _ -> no_hook |