diff options
| author | Emilio Jesus Gallego Arias | 2020-05-15 02:42:38 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-06-26 14:38:10 +0200 |
| commit | 1f121ebf2990dc25899f2f3eb138eddd147483cf (patch) | |
| tree | 4986eb05a43c4912f0b85fae555c48c09fedee89 /vernac/comFixpoint.ml | |
| parent | 671004aac9f9d3b70ef41f81e7b3ea8f190971ec (diff) | |
[declare] Refactor constant information into a record.
This improves the interface, and allows even more sealing of the API.
This is yet work in progress.
Diffstat (limited to 'vernac/comFixpoint.ml')
| -rw-r--r-- | vernac/comFixpoint.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vernac/comFixpoint.ml b/vernac/comFixpoint.ml index 5bf3350777..925a2d8389 100644 --- a/vernac/comFixpoint.ml +++ b/vernac/comFixpoint.ml @@ -283,9 +283,10 @@ let declare_fixpoint_generic ?indexes ~scope ~poly ((fixnames,fixrs,fixdefs,fixt let fixdefs = List.map Option.get fixdefs in let rec_declaration = prepare_recursive_declaration fixnames fixrs fixtypes fixdefs in let fix_kind = Decls.IsDefinition fix_kind in + let info = Declare.CInfo.make ~scope ~opaque:false ~kind:fix_kind ~poly ~udecl () in let _ : GlobRef.t list = - Declare.declare_mutually_recursive ~scope ~opaque:false ~kind:fix_kind ~poly ~uctx - ~possible_indexes:indexes ~udecl ~ntns ~rec_declaration + Declare.declare_mutually_recursive ~info ~uctx + ~possible_indexes:indexes ~ntns ~rec_declaration fixitems in () |