\ Mem 98.11.3 8:34 pm NAB
\ after code by ERS
1 constant memerr
: (allocate) ( u -- a. ior )
0 MemPtrNew 2dup or
0= memerr and ;
: (free) ( a. -- ior ) MemChunkFree ;
: (size) ( a. -- u ) MemPtrSize drop ;
: (resize) ( a. u -- ior )
0 2swap MemPtrResize ;