\ 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 ;