From 4418b1dcfabc0acd97e2faab6d67e4ff3387f91d Mon Sep 17 00:00:00 2001 From: kitty Date: Sat, 28 Feb 2026 19:29:53 +1100 Subject: =?UTF-8?q?rename:=20allot>=20=E2=86=92=20allot@?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit also based on duskos names --- jefs.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/jefs.fs b/jefs.fs index 63694de..0ab60d3 100644 --- a/jefs.fs +++ b/jefs.fs @@ -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, ; -- cgit v1.2.3