From eefd9ba2dd56cc819083f9e203aa79d44a369a93 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Mon, 8 Jan 2024 11:37:25 -0800
Subject: [PATCH] Can't put test for componly in execword

---
 images/apple/PLFORTH.PO | Bin 143360 -> 143360 bytes
 src/toolsrc/plforth.pla |  10 +++++-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO
index a08ca3c1fe3c4285abbc0a23c4ff26b73b6e39d8..1aa1a769f255b7f7437d2cbe655a49f97b86d066 100755
GIT binary patch
delta 687
zcmZwDU1-x#6bJB=YpT`JCbc@DNLtg_sZ-d8A47&K(g!DX6BcxYs$*a&f)n~6IFvPx
zfhY_@h6uh06IX~hA<#lWeUO2#K1}dCo8YXS?Qr-w@P9=G!G~YYz5jdexsZbAFL?gP
z=X`?Z4*81ZO<Gf&J`wF|)225+i3=@u*xTujcs{l_Ls_O@REN4_kNlKV!`*F#bn;J@
zeE2uhklB4+EP(b-<>Ut5(opQ%i>Z(k<y%qjitzhF`lwr5e7#Pn*mIxnG&xa&UFej%
zm|n4SOEV02LSNn;Xegpiq!-o9AR~Q2y-bPcTQTr=inA=`4aR#G)O;pkg!yY~^)MfB
zwz@mePz-TUq(t)9!BjQI4@%V&D6a481EHg#;HKUa$t33a;D0v%f7^av8xS0~eYq$I
zj{W9aJ0BUSpW;Pc*=Ap@H}mOJ^-+OWdF4LiN2Tx6_@Tz?u|P#31jL*uu@-lBb=W^<
z9SZKSjs(}6sUTU$QTu{q4#0W11bO76$j7n10k>chY~*fGG)q`Ng*kWuFX0uug%41J
zALtE9qPayPGXfgyf&J1LnLSvfpcm5652s-mvM>Ty;2KQ8O_&5rBI~Zitb3AZ&0zQ}
zvNBZQ8GM8#ScZ)<nIUKf1>&#|4sORM3B91h8JVn{ELzuP(VQ4>T`RY)3G*F40Wq4`
Ae*gdg

delta 687
zcmZwDPiWI{6bJB^n7Xprq_r->(4|Y4p!Bjo2vr6fB21)%fk9^Iv?$bB+-2yHBDC?(
z!Gnj8Ap^Z_Y7gQDfejHwaUvc)OmH}8Do*3J5}cl7;`cX15IlVH-tWEldp}6I8ZKAE
zv!_Fx?B+t1`9`@ZNgs*!b;wgYpC-9sCtlU$JQ<^EuBY!|m`2oiPe(b^PI+?9*Ai~J
z8sd{W<@v3N#G}6xjjYz)I@rLXrZ~52M`E7Bj)IYHVQaX|Wp}mqej67!uU00TJjLV-
z-O)5}1kT9k2R!b?zI-^KDS|;{RMhMcPll(Clm4<93;$Hn%hQ<2vl&kv%j#yFy{7ty
z*n(63{)ncS!jM3E-&SM7Pq4<EKY-wdzTW4$GzB+}-j=Ms$QJ)|`2X9^^6GKUb34~6
z9OpSp>z!<6q<(^hXt3M4QkU8GiF%P^F&a$stTp#-3P04`I2s9B2?gRk7<Oki&V)<W
zL6NM(BH06?V4o8OtAKn|Y_l(l+pQw<GU9d2+=M%D4=Sk7qW&29Gk5_D@CJ1sJJyhY
zhoA5Z8YHrIKn!+48>A$%`=yd#9m8P|Ovph2E<q7Wa20OAEtrJ6Fby-{!V`E73-B6C
z-%7mwP7>^8Nw7YlwhjUOfaWM!dqIU>=--1+1`Id}XW;^jL+M&-b3V1nEq46|_4>~Q

diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index c8f65c4..abd9bbf 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -935,11 +935,6 @@ end
 // Execute code in CFA
 //
 def execword(dentry)#0
-  if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
-    puts(dentry)
-    puts(" : Compile only word\n")
-    _quit_
-  fin
   when conio:keypressed()
     is $83 // CTRL-C
       getc // Clear KB
@@ -1043,6 +1038,11 @@ def interpret#0
     dentry = find(inchars, inlen)
     if dentry
       if ^_ffa_(dentry) & imm_flag or not (state & comp_flag)
+        if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
+          puts(dentry)
+          puts(" : Compile only word\n")
+          _quit_
+        fin
         execword(dentry)
       else
         compword(dentry)