From 052d59a3a2fe128f80972ca75532d457a29fa2c4 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Wed, 13 May 2020 20:59:00 -0400 Subject: [PATCH] TOWORD: tiny optimization My mind is getting forthy. --- blk/405 | 8 +------- emul/forth.bin | Bin 5866 -> 5862 bytes 2 files changed, 1 insertion(+), 7 deletions(-) diff --git a/blk/405 b/blk/405 index c1a329b..9c19033 100644 --- a/blk/405 +++ b/blk/405 @@ -1,9 +1,3 @@ : WS? 33 < ; -: TOWORD - BEGIN - C< DUP WS? NOT IF EXIT THEN DROP - AGAIN -; - - +: TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ; diff --git a/emul/forth.bin b/emul/forth.bin index e2112c8d8e0466eb9b6e43ac823b0d9d4e783456..c26b75ce3b2eb8468cdef761d965ac2a4fe4a471 100644 GIT binary patch delta 1836 zcmY*aUu;ul6hHUgZ=<)j_q(?(w>T8I?JDa9#tMi!Y>?iqgO1WJZ5LQ(Ly)nCY;=Y} zh%w8Ce=t5Y#(er^hj1S`ZzFROpbnQ9c z@0{~He|M+zmriwFljai=z{0Hhf!fs|mb~aA^4lsXRruq+3%d)&-eo|j4HR-MAE}$< zDdjR*^lg%D=wv^rJETR{?q9cbPF?1AA)7B}iUY+=*#wo&vHkvTslwj(pRg|YZ3v)) zDdjA&p;i2~y{Lf2|XloBY~RMP8Qd0+*+h<-&#MHo6*(&x&v^Bn})pc*Nm} zG{~12H^ElXbyAq+=xQm+Ch4Zpm+)nS8izsJrn-=J3&nEmQ8+>0qj9*|!gX#*2N?_D zgCun!*QW`|FQlHLC+STo*T;+UGrf+;(m;$&cX5QCU5|aND>Zh?cyi!fET0KOO2bG}{&8Xbo;DF5q#@;+am{dHFGU0H zZ3~hh@-;&?c+DH+JXWW!V1E!AMLoW-PIIl3q%-i-eG^T42X_tZL&Dc-6zzQ&C@S-s zUnbmIV#m$IzBf%is0l9>89dPmh|IRZJ;D`fiUT(=#Ry??SORmrpInk>O50 zQwZiC0M8W<`f1S9H;B~AcOk)-(zA+hL@Pe+yT!C$M2B(Z9!~sKGY*&7W1$YruEzR8 z?bA1KOH9#`1w02EL%c)VU_sfe4C@xg?B^@3|0z6g1M|6iCD z;kD8YmJP35!ne#)uCQ7-(or)^<4R~o95^1NxON2=(?dkXK636y*(c%jbU$7$iu=xQ zQWYZDoNvNaq;gB*nY5`Ttl=r&Y`6qBc`iwih9x*oE6Bgniiv$MwmO$Br!;t#&Z#!U z&}tFy#|B(Q)Tb>>(S|r``Em|-R4BYc?`pf2;$bXgb`4~6849lp%|lR6LFg+Hcmp5A zQfIbj^8t7b8;D!KJ)O<_QHbN9wW%rg`O?TpN{cHTnJ|%G3>=tKw~{I>BJFHn5MD-b zm4k5rWH^mp$~!W73rQ0>rA=#5y!YC-PfsCV zDyQ@1F!<;>Bs*f&(Nk|h7ctL^n7rGC0YiA65t=61i7_XP1(J;zOpM`CGudy}s>cWE zP5cj$I93~VR^reOiuYp^hezz%#1VUR;%IFI23c36QyONKNEiOCN7}bc>2Y`}vK;Sg s91cYs{Qf5xgT0e4PQo&O40o&hPF&z9|f0Ta@AHvj+t delta 1762 zcmZWpTWl0%6h1Ta@3OPAbJ@!*t{d9f?O0|kts)EIBCwryOBa{jy1RsKh}l%2E1`C^ z#Sk8v7B3hcYSiBs9@GaCNE$F2LX#ST3GIU>f+Pk)0>NlN#h8W%LLx7C{+Tu*`mmRC z{_mXgo$K$Ne|3uU5;t#g0QbHTzYvp;0)+oe1fc;09MJg+EIx5yPpRCSq?g2%To=6| z_H&PEYj90$K}-f6$QP@*@<2IP)j(7hXg#=z8=@zJ$Ms7=142;nO$f8Z0KfZhh-RcC zYEyEcr=07q=49|IMf$B|g%-q9J_l9@fK%?#MQPs(Eo6WI8XXLMB0Z1@|6^zbU0t9L zL-wR7JKz*vNj)C|pJD(HONwnW5R}QX+*_@w7=cA!LRcOmuq@k5uFD1h(FND3siGz; z8BlW>8xSC8Q6jKboFOH7LYOC$Tk*$ZU?X^|JS}wM=Pu^~9Ox_TuJk{H+)Aisr99^m z&V~{Gy-av!a^KfLUOMjplP820*M;Xc)sDuqZa4?518*KYY_mjW$afgmqDf^9x03cN z?OcX7m370D__9_sp{6862fCe7xtdPGapgy|7LtyaAhl^Dk$TQ7Z5^4$Ss0 z?BldBMo+05Hhhld)1W4NrDhcNaiD83;l>B9CfrnSst(i@G+^E~BMHLaRQ*)dbRT>4 zQ(Nn>Gs+bF_9TYT-rc(fhLGSbC589^I!^Jd#@EOUnFAl4(5xYO6R&9da|t z!XjY`>)`0{h#hvzdR`;^X>CGaZAJa-Ed_yzgO8Eba>CiQiC?+;Wok&~qHZFt)ten3J*T{y5Uo{|$|JMt3Iu+5k4MZB4 zpU(f}(qOIm6I(L{m$CKrB6jjpkR?o(51@`3bf3=dps*Fe6IQ{Y2|DNKB3i@0}5|5_YQ z;DfuHxgGgp2tL4u;qvb2&KH9ym^eQPF)Nt@!|X0r^M#nJZak&7G~|#58y3WEqydkR zT0Y$uhIi52!?Ejl7X4QHb44BA$3e_W?|rH#J&ZWT$TN+T&u?bU86Kfu_qu6Y}nug{fJWMhA zhu->JO}T?t-a0ZmY`0*mYVP}y=GcB?w0YPVZoV_RA8NEC-pSQzE&c+2pNO|@J|>&6 vCEkKJ(uB9;o%qW~(oi2iIu6NT8hV-|BSUYEA23Q47KmMwEx_fA`Ks|RwBBy{