Make word "." a bit more compact

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 )
 : ? @ . ;
 : _