diff options
| -rw-r--r-- | jefs.fs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -65,8 +65,8 @@ hex : ret, c3 c, ; decimal : ?intr state @ if 4 error ! handler execute then ; : cells 8 * ; -: allot> here @ swap here +! ; -: allot allot> drop ; +: allot@ here @ swap here +! ; +: allot allot@ drop ; : [compile] parse find drop >cfa compile, ; immediate : ' parse find drop >cfa state @ if [compile] lit then ; immediate \ note: no error handling (yet) @@ -74,7 +74,7 @@ hex : ret, c3 c, ; decimal : literal [compile] lit ; immediate : constant create [compile] lit ret, ; -: variable 1 cells allot> create [compile] lit ret, ; +: variable 1 cells allot@ create [compile] lit ret, ; \ maybe i made bad design decisions, this is CREATE but it pushes a pointer to just after its definition. for arrays and the like \ does not use LIT because we want to fill it in After : make create here @ 18 + [compile] lit ret, ; |