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 /vernac/declareDef.ml | |
| parent | f52e7e152e37000d081470f73786ccdd9167f1c0 (diff) | |
[declare] make restrict_ucontext an optional parameter.
The current API does just exist as a workaround for a bug.
Diffstat (limited to 'vernac/declareDef.ml')
| -rw-r--r-- | vernac/declareDef.ml | 4 |
1 files changed, 2 insertions, 2 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 |