From 1b6dec8e8e766683d629d3760e9feaf6098112c9 Mon Sep 17 00:00:00 2001
From: Florian Schwendinger <Florian_Schwendinger@gmx.at>
Date: Sun, 7 Nov 2021 21:17:02 +0100
Subject: [PATCH] remove exit_flag

---
 src/scsr.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/scsr.c b/src/scsr.c
index 7805cc1..1d2a2ba 100644
--- 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 */