RSP0 and PSP0 now constants. Closes #4.

[forth.jl.git] / src / lib.4th

diff --git a/src/lib.4th b/src/lib.4th
index 301f9ac..e258ea7 100644 (file)
--- 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