summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--jefs.fs6
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