diff options
| author | Emilio Jesus Gallego Arias | 2020-03-24 23:52:31 -0400 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-03-25 06:07:01 -0400 |
| commit | b623017fea475b7b91c99f462b0fe2458bfe91e7 (patch) | |
| tree | 8e7fe8bf7923df107ede9b788c6d1cd6c8ee78b6 | |
| parent | f52e7e152e37000d081470f73786ccdd9167f1c0 (diff) | |
[declare] make restrict_ucontext an optional parameter.
The current API does just exist as a workaround for a bug.
| -rw-r--r-- | vernac/declareDef.ml | 4 | ||||
| -rw-r--r-- | vernac/declareDef.mli | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/vernac/declareDef.ml b/vernac/declareDef.ml index 6e19cf97b0..fc53abdcea 100644 --- a/vernac/declareDef.ml +++ b/vernac/declareDef.ml @@ -95,11 +95,11 @@ module Recthm = struct } end -let declare_mutually_recursive ~opaque ~scope ~kind ~poly ~uctx ~udecl ~ntns ~rec_declaration ~possible_indexes ~restrict_ucontext fixitems = +let declare_mutually_recursive ~opaque ~scope ~kind ~poly ~uctx ~udecl ~ntns ~rec_declaration ~possible_indexes ?(restrict_ucontext=true) fixitems = let vars, fixdecls, indexes = mutual_make_bodies ~fixitems ~rec_declaration ~possible_indexes in let ubind, univs = - (* XXX: Note that obligations don't do this, is that a bug? *) + (* XXX: Obligations don't do this, this seems like a bug? *) if restrict_ucontext then let evd = Evd.from_ctx uctx in diff --git a/vernac/declareDef.mli b/vernac/declareDef.mli index 995aa0ceff..1d7fd3a3bf 100644 --- a/vernac/declareDef.mli +++ b/vernac/declareDef.mli @@ -82,7 +82,9 @@ val declare_mutually_recursive -> ntns:Vernacexpr.decl_notation list -> rec_declaration:Constr.rec_declaration -> possible_indexes:int list list option - -> restrict_ucontext:bool + -> ?restrict_ucontext:bool + (** XXX: restrict_ucontext should be always true, this seems like a + bug in obligations, so this parameter should go away *) -> Recthm.t list -> Names.GlobRef.t list |