diff --git a/bootstrap.fs b/bootstrap.fs index 11d0dd7..1150965 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -1492,6 +1492,9 @@ do-stack 16 cells + do-sp ! : cell% ( -- align size ) cell cell ; : char% ( -- align size ) 1 1 ; +: byte% cell% ; +: ptr% cell% ; +: int% cell% ; \ allocate user memory : %allot ( align size -- addr )