From 734c5c4430d488fc78dca791643ac6f1431c24c1 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sat, 21 Feb 2026 00:51:22 +1100
Subject: .r, fix stack leak

i forgot i yoinked my ALLOT from jonesforth which returns
a value. may change this but it would require a few rewrites so eh
---
 jefs.fs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/jefs.fs b/jefs.fs
index f53f219..2bfbcfb 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -56,7 +56,8 @@ decimal
 
 \ PNO
 \ mostly from pforth
-255 allot variable pad
+
+255 allot variable pad drop
 variable hld
 : <#  pad hld ! ;
 : hold  1 hld -! ( chr ) hld @ c! ;
@@ -70,8 +71,7 @@ variable hld
 : u.r  >r (u.) r> over - spaces say ;
 : (.)  dup abs <# #s swap sign #> ;
 : . (.)  say space ;
+: .r  >r (.) r> over - spaces say ;
 
 \ TODO something is leaking its stack (a word address i think)
-15 10 u.r
-t
 bye
-- 
cgit v1.2.3