From 8a6b64162437c087b3fe1429a57dc13562c8eb3c Mon Sep 17 00:00:00 2001
From: Matthew Fernandez <matthew.fernandez@gmail.com>
Date: Fri, 24 Sep 2021 19:26:11 -0700
Subject: [PATCH] lefty: remove unused 'Eoktorun'

---
 cmd/lefty/aix_mods/exec.c | 5 +----
 cmd/lefty/exec.c          | 5 +----
 cmd/lefty/exec.h          | 2 +-
 cmd/lefty/internal.c      | 4 ++--
 cmd/lefty/txtview.c       | 2 +-
 5 files changed, 6 insertions(+), 12 deletions(-)

diff --git a/cmd/lefty/aix_mods/exec.c b/cmd/lefty/aix_mods/exec.c
index 6a2e62311..5e35b2c38 100644
--- a/cmd/lefty/aix_mods/exec.c
+++ b/cmd/lefty/aix_mods/exec.c
@@ -27,7 +27,7 @@ static int lvarn, llvari, flvari;
 Tobj root, null;
 Tobj rtno;
 int Erun;
-int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls, Eoktorun;
+int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls;
 
 #define PUSHJMP(op, np, b) op = (volatile jmp_buf *) np, np = (jmp_buf *) &b
 #define POPJMP(op, np) np = (jmp_buf *) op
@@ -137,7 +137,6 @@ void Einit(void)
     sinfoi = 0;
     Erun = FALSE;
     running = 0;
-    Eoktorun = FALSE;
 }
 
 void Eterm(void)
@@ -158,8 +157,6 @@ Tobj Eunit(Tobj co)
 
     jmp_buf eljbuf;
 
-    Eoktorun = FALSE;
-
     if (!co)
 	return NULL;
 
diff --git a/cmd/lefty/exec.c b/cmd/lefty/exec.c
index a4c2cd201..27d8da503 100644
--- a/cmd/lefty/exec.c
+++ b/cmd/lefty/exec.c
@@ -27,7 +27,7 @@ static int lvarn, llvari, flvari;
 Tobj root, null;
 Tobj rtno;
 int Erun;
-int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls, Eoktorun;
+int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls;
 
 #define PUSHJMP(op, np, b) op = (volatile jmp_buf *) np, np = (jmp_buf *) &b
 #define POPJMP(op, np) np = (jmp_buf *) op
@@ -149,7 +149,6 @@ void Einit (void) {
     sinfoi = 0;
     Erun = FALSE;
     running = 0;
-    Eoktorun = FALSE;
 }
 
 void Eterm (void) {
@@ -168,8 +167,6 @@ Tobj Eunit (Tobj co) {
 
     jmp_buf eljbuf;
 
-    Eoktorun = FALSE;
-
     if (!co)
         return NULL;
 
diff --git a/cmd/lefty/exec.h b/cmd/lefty/exec.h
index cea66141e..acdabce63 100644
--- a/cmd/lefty/exec.h
+++ b/cmd/lefty/exec.h
@@ -17,7 +17,7 @@ typedef struct Tonm_t lvar_t;
 extern Tobj root, null;
 extern Tobj rtno;
 extern int Erun;
-extern int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls, Eoktorun;
+extern int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls;
 
 void Einit (void);
 void Eterm (void);
diff --git a/cmd/lefty/internal.c b/cmd/lefty/internal.c
index 695e7dba5..00cd27b11 100644
--- a/cmd/lefty/internal.c
+++ b/cmd/lefty/internal.c
@@ -628,7 +628,7 @@ int Iload (int argc, lvar_t *argv) {
             src.flag = FILESRC, src.s = NULL, src.fp = fp;
             src.tok = -1, src.lnum = 1;
             while ((co = Punit (&src)))
-                Eoktorun = TRUE, Eunit (co);
+                Eunit(co);
             if (fp != stdin)
                 fclose (fp);
         } else
@@ -646,7 +646,7 @@ int Irun (int argc, lvar_t *argv) {
         src.flag = CHARSRC, src.s = s, src.fp = NULL;
         src.tok = -1, src.lnum = 1;
         while ((co = Punit (&src)))
-            Eoktorun = TRUE, Eunit (co);
+            Eunit(co);
     }
     return L_SUCCESS;
 }
diff --git a/cmd/lefty/txtview.c b/cmd/lefty/txtview.c
index 27fca91ad..b1ed3c76a 100644
--- a/cmd/lefty/txtview.c
+++ b/cmd/lefty/txtview.c
@@ -307,7 +307,7 @@ void TXTprocess (int wi, char *sp) {
 
     src.s = sp;
     if ((co = Punit (&src)))
-        Eoktorun = TRUE, Eunit (co);
+        Eunit(co);
 }
 
 void TXTupdate (void) {
-- 
2.40.0