.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

1 files 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