From 2578b1a3fbe0536644ded006d395f49d7b0c237b Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Mon, 22 Jan 2024 10:17:58 -0800
Subject: [PATCH] Remove checks from '[' and ']'. Apparently unneeded and
 unwanted

---
 src/toolsrc/plforth.pla | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index 665d703..67e6897 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -51,7 +51,6 @@ const comp_flag     = comp_itc_flag | comp_pbc_flag
 //
 byte comp_mode = comp_itc_flag
 byte state     = 0
-byte savestate = 0
 word brkentry  = 0
 word brkcfa    = 0
 byte brk       = 0
@@ -1336,16 +1335,10 @@ def _forcecomp_#0
   fin
 end
 def _compoff_#0
-  savestate = state &  comp_flag
-  state     = state & ~comp_flag
+  state = state & ~comp_flag
 end
 def _compon_#0
-  state     = state | savestate
-  savestate = 0
-  if not (state & comp_flag)
-    puts("] Not compiling\n")
-    _quit_
-  fin
+  state = state | comp_mode
 end
 def _componly_#0
   ^_ffa_(vlist) = ^_ffa_(vlist) | componly_flag