diff options
| author | Emilio Jesus Gallego Arias | 2019-05-21 16:48:03 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-05-21 16:48:03 +0200 |
| commit | e9a5fe993ba36e22316ac9f6ef0564f38a3eb4f9 (patch) | |
| tree | 0ffb42301743171b24d6bb0c4205eba78e889e50 /plugins | |
| parent | 0aa9a5407874332dfa31f1a0f73d2dc91e95fb39 (diff) | |
| parent | f6751f5e8aae4f37d302f700d2f5f2e9fba73a1e (diff) | |
Merge PR #10188: Remove definition-not-visible warning
Reviewed-by: gares
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/indfun.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index 6494e90a03..ce7d149ae1 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -414,7 +414,7 @@ let register_struct ~pstate is_rec (fixpoint_exprl:(Vernacexpr.fixpoint_expr * V match fixpoint_exprl with | [(({CAst.v=fname},pl),_,bl,ret_type,body),_] when not is_rec -> let body = match body with | Some body -> body | None -> user_err ~hdr:"Function" (str "Body of Function must be given") in - ComDefinition.do_definition ~ontop:pstate + ComDefinition.do_definition ~program_mode:false fname (Decl_kinds.Global,false,Decl_kinds.Definition) pl |