Merge pull request #55 from qartis/use-depth-for-.s

nineties · web-flow · commit f7356eb63bfa · 2022-08-18T11:30:37.000+09:00
Use 'depth' in definition of '.s'
diff --git a/bootstrap.fs b/bootstrap.fs
@@ -1633,7 +1633,7 @@ do-stack 16 cells + do-sp !
 : rdepth    rp0 rp@ - cell / ;
 
 : .s ( -- )
-    sp0 sp@ - cell- cell /  ( depth of the stack )
+    depth
     '<' emit 0 u.r '>' emit space
     sp@ sp0 ( beg end )
     begin 2dup < while
