remove exit_flag

FlorianSchwendinger · Nov 7, 2021 · 1b6dec8 · 1b6dec8
1 parent 5c7185b
commit 1b6dec8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/scsr.c b/src/scsr.c
@@ -220,7 +220,7 @@ SEXP populateInfoR(ScsInfo *info) {
 }
 
 SEXP scsr(SEXP data, SEXP cone, SEXP params) {
-  scs_int len, exit_flag;
+  scs_int len;
   SEXP ret, retnames, infor, xr, yr, sr;
 
   /* allocate memory */
@@ -314,7 +314,7 @@ SEXP scsr(SEXP data, SEXP cone, SEXP params) {
   /* solve! */
   /* scs(d, k, sol, info); */
   /* exit_flag is stuffed in info anyway, so ignore... */
-  exit_flag = scs(d, k, stgs, sol, info);
+  scs(d, k, stgs, sol, info);
 
   PROTECT(infor = populateInfoR(info)); /* count = 1 */