From 7dff93f2ff28bfdb0a71accafc3c8add7c55ed35 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 2 Jan 2021 16:04:36 -0500
Subject: [PATCH] Make word "." a bit more compact

---
 blk.fs        |  16 +++++-----------
 cvm/stage.bin | Bin 4788 -> 4769 bytes
 2 files changed, 5 insertions(+), 11 deletions(-)

diff --git a/blk.fs b/blk.fs
index b0294e2..af15157 100644
--- a/blk.fs
+++ b/blk.fs
@@ -1944,22 +1944,16 @@ SYSVARS 0x36 + :** BLK!*
 : COPY ( src dst -- )
     FLUSH SWAP BLK@ BLK> ! BLK! ;
 ( ----- 375 )
-: _
-    999 SWAP        ( stop indicator )
-    BEGIN
-        ?DUP NOT IF EXIT THEN
-        10 /MOD         ( r q )
-        SWAP '0' + SWAP ( d q )
-    AGAIN ;
 : . ( n -- )
     ?DUP NOT IF '0' EMIT EXIT THEN ( 0 is a special case )
     ( handle negative )
     DUP 0< IF '-' EMIT -1 * THEN
-    _
+    999 SWAP        ( stop indicator )
     BEGIN
-        DUP '9' > IF DROP EXIT THEN  ( stop indicator )
-        EMIT
-    AGAIN ;
+        10 /MOD ( r q )
+        SWAP '0' + SWAP ( d q )
+        ?DUP NOT UNTIL
+    BEGIN EMIT DUP '9' > UNTIL DROP ( drop stop ) ;
 ( ----- 376 )
 : ? @ . ;
 : _
diff --git a/cvm/stage.bin b/cvm/stage.bin
index 283b2cb5a17c02f0254f2a86f65ce640ee0ed357..1c1d17c9080488c74d64fe0d02ef79e9449530ce 100644
GIT binary patch
delta 414
zcmY*U&nrYx7(L&chnX?&XPIg8Y&?^s<_$`jMq_SD3QrnE6tZHCY%FN761t_-l$1=F
z*@&gZEcq)el`M#jVsft^3%9<``F@@6-0Q??A_Vaalhv(WhHfHC(&Wz(x0m4|Z~}%f
zVk9vIMc^Jj;Nh{T7DTBJ;edy?BRI&8gUF>j-lJtQ?OIWl;UGB`7i+KNYrf`SE-Z%R
zVj5Dw*J>(*3QqGVz@;ZS#>?6$t@C%SLx{QheN$0qh~R@-=$IJlzu7d88L9rN?qI~v
z4NjP-qmnQ;k0Bv{7pbXLJ&m{DZl{BKx@dGs`v1cLUN8=6nnz79@nSIHCndaW2)5fG
zSy8`I{$E@++lctSxk44LT8ql3$(O8lksMlaTH|G_tLfZgD5(cQ2RY_X<XbK5&@F$l
rIuaH0OjIYw^1~xhY>R(*I0!B%LHcRT*w_?ivUanSoweH}Y}wskGw)*Z

delta 406
zcmY+8O-MpP6ot>#XQ{lW^CS!D1(LoZinMl#5Dq~I{ZaM<Ei~H(5wwgTus<R&2BJWa
zAaE&Bn;>Wzty>1Qsy4N#wh`S|s|JR1=gvLfJty{s?E{~7Aw4^1zAL>uFF+*m;;v#J
zUr4}hLBfv~s<I~GVzu#Pp|?Zb=&|UnUgG`${O$xihp<r5Y`j?*Ofe@$A1Z33(<!5(
zIhS2?5k`Dc(I^@g@_rt2{3*7TP&B?Z2@Q%0C?Q6#&X_tfMrlty8(j<&fyZz?Afe-n
z+US^rHvCpgN(&~fyMTp}@yyVqfQM=vw18p8f9T)Zotg+nX-cgG4`@lbMZ(sE<fTbo
zSPn{TH#${4aPIn#ofUCvQfp$BuGPC(bO}?<n4SDsHzTyGj?BLBr72O<%3cc@IX;<d
yH?c+c>cQ-?uf-{Mr^j;Hk!Eai*aXVn1(%opKITK%;4nR*RtK96#T{7=_5T1C6<#|4