From 1548a63a9fcaf021866ae529ead76f3786a0ad17 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Tue, 9 Jan 2024 11:12:20 -0800 Subject: [PATCH] Clean up ] and [ compile on/off --- images/apple/PLFORTH.PO | Bin 143360 -> 143360 bytes src/toolsrc/plforth.pla | 11 +++-------- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO index 14bb2fa55f083fd9f5858a1949a8f59b9d79e475..c8f61ce037ab50226b1a6f51638f2e3ff1783142 100755 GIT binary patch delta 3414 zcmYk-dvH@_8prYXoSd|28xSc8P1-a`X-d*US`h>hl{8IhXh?cFTJ98evAU~JVHF%S zIiiB=^)+R;D=RC^GF}&vjIwsxvEyYIW?2C*CB;W?aU|d?|Gj0 zoLo+tlj^sm`Yk(_m=$ZL)%?P3c?qxjDSVh1lXZx70;rk=9QbZTDw2MH(U@z4aJXw?C^k z(KIWfr%qEajvRmrhV+PM1C1@| z*H(J%pZm4iXuL-B(mC!|#(Vxn$jcmG>4}aSoGb!W*1U1zxVRKD`8`8LN?&?pU%|*! zKx;`f)rf)uA&v#ollw~DbIO&VB|&X3S4)GIxuk2$O=03vqAz`4U&-|Ifvo0+P&m>o zo}hOzpy~4(BI1wa{&KZC=6R8{s9X!zg_=AW^2&0h#M49QOn=-rE@`SzgMQC<)RQVq z%}rs;S>k~TjacFl4nCg=SzOcMNgmY~6SQz5uBXP5j|R2Io1(hKNA9jPhpH1zy5%a0 z-IW&qrK%)gxt_YeGV5~bnN6isaf(=tWj@)JtWx~`Hj-Lts-71StB8Rrt+_7Il6ruA zYC_I%Zq`HLda;4VI}>w<8%>ux9drgKYI;*5F1C>!K{L6wR_vlE31&6x5w4ebk7`0N z`%=YlKjqY*sk*6Nguf&&3!2G^cxr&+u3*-1QCpk(FV+5_DXNE4W~UHmgQkY+a4Mg8 zA!xoi7H!r=F~y3^)FY3Wly}lSM~9T|^xygyDcu?Su@wr-`mbiQq(3@7jUw;FNtNQq zuj|6ymGjlM()<}!t9|*bi}!V`F3n#^YV+m)o+vK&XH>L}z(f ze}R6wxS>Fl2hyQ|vFY^#w<}B2{~4&@1r?rtpMCwOiD7ON+^B!`vXdD`maB@ zY`K-g&n5()%JNlh(>>+ALeEVf{h{Q>;rB3CQpygHNbQJcBLRi7p((2`FVk&A}K< z!)k29cQ}u{@j|V`y*P|Xexc6CLwFJ$*n;io#^*SWya3<3fJmw-LLZLdJTAgsE>s_` z#T+ccN_3(hrV5@2OR)n7uziA1zrZQHGf}96a0G=~f(e+45SHOC?8ng{2c9KdfLbZk zT&zGhcB3Ckl~7#>WS;t|J||gY6UHpeK_hg`#X>Bx3Ax6m8EeTYtixk?0umi~4$osN zw&7K5M+Up_9(LnHe1y-?$9ccBjWmwgMAA4(V*uaN{E;R%3pr%7O4V*P%ywbqf*XZ# zC2VlPgK;QB&@SX8`$%I7nVW(ULM@{7W1J&F*1;`8F0or>8@+bwRak3J3L{B)h~d)= zHj}sDW$Hb4&Dcxc2Y%j-LpXvH_yz;`o_%LH?ksr-KSLWUjBHqO1;$`33Q>#__z=X^ zNgl4jbqFDXC}L=Yj=5NXCAbB@#tPhz2e1y0LZSnm*o4>cIx=_*+(wKKup8V-jE|B0 zjEAH63MX+2XK@}sLlp4QV+^>T7=`em99QEy+<;m{5kn(%v|s^l#WLKDcC5l0tS#XB zCkgBDXn~MV6<7^P-iS_Y!e(s6HoSya@j7<0|E+?N#@pmxe1P5fCq86$fOGwu%nivn zhbtYt2{1C}*@=)cp$SJHh zqQ;pcqpUg`<~dbku~QgrSb;T2;c;|eGj^g2Jx(Ftb&iyKoTKGFr`7m~`ctP>9-;o0 z^JEwDWyEOM;3^a{Sg0AvYbb6&2sMZ?SX8LV`wMMyW1-D>i{2i3ds#na9ps>&SceMT z#xL}gB4Lp~BDu^Wf*HGaU4_ysvGenVh`+a+X`OEadBYh6hp z<1SS;yEHl1r5bGv+g)b4h7Avr*Skz|GqYD*UipSAOTOvKGT!6Bz4(;*arU0%xC>;p z*etV)RpZKHVL0K&I0P^elQ9i9pc)a>C3&bv9F1tfVl2h&xD)NgLUt5u#-GT4#>?1_ zop=*n%=a=sK>h@u;RyQiHBK=y`AklR`B^^7&vuxTxlcmx}mJ?*g?&yqJ{6E4|=f&d$At}ImaQ+f5xL3L!K6X99D zT8$FsK5D<$B`dteMv(d{>dD@5#&mKB5!9i6S1?OCsH8`!mFqQ&vP-k57sme&wCa;? delta 3402 zcmZwIdvufa9mnzC^W;gI(o#6orcIhOPf9OoO4DwlMMc-NO=%z`y`?6cM-MV>%rNJUBSuWzL~-r<`>-aP`RXx{7d=!CL8t%yN;7f`GDj@t^&%p7VNs zpYQkkd!D3ua_Jei_6%Eh-ECI1WUKjwwzLO4>b*i#I-U?M$+Y_$Qj`OUMXMfv5p zQlv)fTJ5CDB6BcOOHoL%uqcJ%`mS=y%|)8GHd#P^9&Bid|lFU`BxA&lG)Lb4w%^3b(#%6QyFnYo1#l3I|(1Wi;ruGzA-ifmrJo zR6|}%U9@RNFxGRLswt7yxk%|uw0G(S+X}~pBC%joLo^beuRoM6M6xh7G<$ZiHWY{j z^(SZyBwp?G*sgfBx=^H6?4@HVQHu2s3I60rryiQpQsxL5iVzcosIi%%`^Tj!A$`Ajv$#l-qV_u>3oojyx* zL!c(uES{p5@6%%Q8-ijJ*;J}lhxHdpJwC0bKG38m$k0KXKsji6m= zsar}-%}q7dZ;2O5HDbOl?7TixEZozvNg9WHLn?kXg9Wu; zolq$*9Iu}?RK7rMFUXu;5w?lz>qCW^tap9f`%pnC^z7J*V@O3&|s=|Dh;tiQQihDrJc$&$_b8 z%Ez7n?_*1KM_2o;x^J(Dl_maiHlGuR&gyymL)tu(i1qt^{I}9X(M)^nbY6p5#7q@Q z*SRu98BEMNe=*)!DAa98VgLtm6yG7GNT>yvf=VpJX6(m=Vxc1NSBrt?gm@0S$P=#=E={K`d<1?~^3?qt` zEMY9q(&S2V7rOBX;#kXU3$v}{?bwM|@khLgKJ39>@I5d0<0A~>5Dw!wMsXJ3;BuCT z%kR0cV#|=4O~^D%M5av`+4LN&E?c@$XiJw~`emrVR7^t^YEXv|8rk2%dGpA3qYX>2 zjD82#c!1oEhpE?c-Ho<*y6mO#9JXQ`b})Q{&HKm$_<;JPO_OKH=Wr2MaSbWiLXN{k zWM&J)mYpu`WEXT4!-sPG6qUFYcOZaZoI^btF$eQ;7uwK{W#~W`y736sU@acQuaUs> zcmX@{GTuZV`tcS%#wR$0&oP1%h>vpk8sFkF)EptrNJ9qfa6-pqOhqMb!yTx{Y|O!3 z;HN__!7_B93*C4aYw$QWz(8*f_y0M<7Hq{f?8M7C!gxI=UA{@)jefj^eRv1^@jgDn zCpgId&vP>55%LI5U=*iume~cam2MYu0vwo%N=&!MdGin=n1_Y9*Dj29yF;!ZuL3_B zat+qfUvHlvH?nTA^GTrhBKcK&x=ga}wofwl*i+yPC6zT=N#$s8|q7rbmJQJ_*_-`a(Of2Cd8+4sLB;aW3DFWlNX~6_o0J+ zPp)P>pPOau&drja(>qD;4C^JD_^VGt+2v-eAnf-R!xC z*)MQEmZQtb{qJVu8iv25@i;c%DLjMU;J4U}t=NX0cm=O<-aAgscn=>sP4XbUqZq~r zMsXFXE+KC~HawVu3QR+_D=v&?mnP>?EO7~Al}j}qbZN#TE>&)%?sb`sEzEyMe#K=n z_A&d=xt>|C+azCM{R4Y;k@u6|Cx1jf z!ui7(q4%Y`z_`jauaUEK&2Ye_o20Ju{y-^i#LYVQe>x$6T3s0RdV!qH+Nc*8%Q_{T^XlwT|b3K#go#ZyO XV<}ejT{A0(l=Yfb>C>$0)#CpG@BErR diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla index c1aa20a..3e4d293 100644 --- a/src/toolsrc/plforth.pla +++ b/src/toolsrc/plforth.pla @@ -1300,19 +1300,14 @@ def _compile_#0 fin end def _compoff_#0 - if state & comp_flag - savestate = state & comp_flag - state = state & ~comp_flag - else - puts("[ Not compiling\n") - _quit_ - fin + savestate = 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") + puts("] Not compiling\n") _quit_ fin end