diff options
author | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-08 18:52:52 +0000 |
---|---|---|
committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-08 18:52:52 +0000 |
commit | c81254903e1e50a2305cd48ccfb673d9737afc48 (patch) | |
tree | 622d6167cb84e4232794145801ab5ca87bde25fa /toplevel/class.ml | |
parent | 80aba8d52c650ef8e4ada694c20bf12c15849694 (diff) |
get rid of closures in global/proof state
In some cases, an 'a -> 'b field is changed into an ('a -> b') option
field so that one can forget the closures and marshal the resulting
state
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16683 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/class.ml')
-rw-r--r-- | toplevel/class.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index f9ce75bba..89cf116ca 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -297,7 +297,7 @@ let try_add_new_identity_coercion id ~local ~source ~target = let try_add_new_coercion_with_source ref ~local ~source = try_add_new_coercion_core ref ~local (Some source) None false -let add_coercion_hook local ref = +let add_coercion_hook = Some (fun local ref -> let stre = match local with | Local -> true | Global -> false @@ -305,13 +305,13 @@ let add_coercion_hook local ref = in let () = try_add_new_coercion ref stre in let msg = pr_global_env Id.Set.empty ref ++ str " is now a coercion" in - Flags.if_verbose msg_info msg + Flags.if_verbose msg_info msg) -let add_subclass_hook local ref = +let add_subclass_hook = Some (fun local ref -> let stre = match local with | Local -> true | Global -> false | Discharge -> assert false in let cl = class_of_global ref in - try_add_new_coercion_subclass cl stre + try_add_new_coercion_subclass cl stre) |