From aa1061032d57667c5b53ab445b7942f3bbf6f681 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Mon, 16 Feb 2026 23:40:35 +1100
Subject: jonesforth port improvements of stack words

---
 jefs.fs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'jefs.fs')

diff --git a/jefs.fs b/jefs.fs
index c37067d..8bfb336 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -7,12 +7,16 @@
 : decimal 10 base ! ;
 : hex 16 base ! ;
 
+hex
+: ret, c3 c, ;
+decimal
+
 : cells 8 * ;
 : allot here @ swap here +! ;
 
 : [compile] parse find drop >cfa compile, ; immediate
 : ' parse find drop >cfa [compile] lit ; immediate \ note: no error handling (yet)
-: constant create [compile] lit 195 ( ret ) c, ;
+: constant create [compile] lit ret, ;
 
 : begin here @ ; immediate
 : again branch here @ 4 + - d, ; immediate \ add 4 to get to beginning of the next instruction
-- 
cgit v1.2.3