From 5b401212019b45f5a6b8730c1543afca88b21c0e Mon Sep 17 00:00:00 2001
From: Andrew Fuller <qartis@gmail.com>
Date: Wed, 17 Aug 2022 19:19:59 -0700
Subject: [PATCH] Use 'depth' in definition of '.s'

---
 bootstrap.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index 4b18a31..ac59176 100644
--- 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