diff --git a/common/tier1a_forth.fs b/common/tier1a_forth.fs index 5695b11..2c93596 100644 --- a/common/tier1a_forth.fs +++ b/common/tier1a_forth.fs @@ -51,7 +51,7 @@ : 2@ ( a -- lo hi ) dup @ swap cell+ @ ; : 2! ( lo hi a -- ) dup >r cell+ ! r> ! ; -( Dictionary ) +( Heap Words ) : here ( -- a ) 'sys @ ; : allot ( n -- ) 'sys +! ; : , ( n -- ) here ! cell allot ;