From 469d8c515ee46e4c14988c094e88151b59eb91ec Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Wed, 22 Apr 2026 00:28:19 +1000
Subject: fix .s

---
 sanctuary.fs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'sanctuary.fs')

diff --git a/sanctuary.fs b/sanctuary.fs
index ab59c1d..06aa46f 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -575,7 +575,7 @@ decimal
 \ TOOLS {{{
 \ write top of stack on right (as stack notation does)
 : .s  sp >r
-	sp0 8 - @  begin
+	sp0 @ cell-  begin
 		dup r@ >=
 	while
 		dup @ .
@@ -583,8 +583,6 @@ decimal
 	repeat
 	rdrop drop ;
 
-\ my idea is: words does all words, vlist is an internal word that takes a wid
-\ todo ignore smudged words
 : vlist ( wid -- ) dup empty-wordlist? if drop exit then
 	@  begin ( ht )
 		dup visible? if
-- 
cgit v1.2.3