RosettaCodeData/Task/Memory-allocation/Forth/memory-allocation-3.fth

4 lines
65 B
Forth

4096 allocate throw ( addr )
dup 4096 erase
( addr ) free throw