jonesforth port improvements of stack words

1 files changed, 5 insertions, 1 deletions

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