X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib.4th;fp=src%2Flib.4th;h=e258ea7229a5a4259d4bd62f5612c8f78200c206;hp=301f9ac20ed175427874724e7d504805cf16dbc1;hb=87b17b0ee12c90f028186761fbb2bd5f6b4008eb;hpb=f998451ad1e6486ab7f9db3204bf830e82cb0f94

diff --git a/src/lib.4th b/src/lib.4th
index 301f9ac..e258ea7 100644
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -25,7 +25,7 @@
 : C@ @ ;
 : C, , ;
 
-: DEPTH PSP@ PSP0 @ - ;
+: DEPTH PSP@ PSP0 - ;
 
 : '\n' 10 ;
 : BL 32 ;
@@ -362,7 +362,7 @@
 
 : .S            ( -- )
         [CHAR] < EMIT DEPTH U. [CHAR] > EMIT SPACE
-        PSP0 @ 1+
+        PSP0 1+
         BEGIN
                 DUP PSP@ 2 - <=
         WHILE