From 06df92fffc05d501fefdcf949625a33bd52f1980 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Mon, 27 May 2019 15:53:50 +0200
Subject: [classes] remove program mode from the new_instance_* APIs

---
 plugins/ltac/rewrite.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'plugins')

diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml
index caeedadbf4..792cd5f9ef 100644
--- a/plugins/ltac/rewrite.ml
+++ b/plugins/ltac/rewrite.ml
@@ -1795,8 +1795,7 @@ let declare_an_instance n s args =
 let declare_instance a aeq n s = declare_an_instance n s [a;aeq]
 
 let anew_instance atts binders (name,t) fields =
-  let program_mode = atts.program in
-  let _id = Classes.new_instance ~program_mode atts.polymorphic
+  let _id = Classes.new_instance atts.polymorphic
       name binders t (true, CAst.make @@ CRecord (fields))
       ~global:atts.global ~generalize:false Hints.empty_hint_info
   in
@@ -2025,7 +2024,7 @@ let add_morphism atts binders m s n =
   in
   let tac = Tacinterp.interp (make_tactic "add_morphism_tactic") in
   let _id, pstate = Classes.new_instance_interactive
-      ~program_mode:atts.program ~global:atts.global atts.polymorphic
+      ~global:atts.global atts.polymorphic
       instance_name binders instance_t
       ~generalize:false ~tac ~hook:(declare_projection n instance_id) Hints.empty_hint_info
   in
-- 
cgit v1.2.3