needs lib/type mem/arena
unit comp/mem

newlockedarena dup bindalloc[ tarena[ dup bindrun1 tarena1
dup bindrun1@ tarena1@ bindrun1r tarena1r

newlockedarena dup bindalloc[ parena[ dup bindrun1 parena1
dup bindrun1@ parena1@ bindrun1r parena1r

AnyPtr value prevptr
: tmppointer ( type -- type )
  prevptr reftype over = if drop prevptr else
    tarena1r newpointer dup to prevptr then ;

: compmem$
  parena1 ensurenext tarena1 ensurenext tarena1 reset
  AnyPtr to prevptr ;