anchor.diff: -require later.fs
  -
   \ OBJECT STACK
   
   16 cells
  
positive.code:    sizeof here over @ cell- cell- dup allot move  \ Clone prototype data
     oarena> ;
  
  \g Runtime for cloned objects
  : doobj @r+ >o ;
  
  \g Clone active object by sending a late CLONED message
  : clone ( "name" -- )
     create immediate late cloned , 
     does> ( O: -- obj )
     @ state @ if postpone doobj dup , then >o ;
  
  \g Runtime for instance members
  : doinst @r+ self + >o ;
  
  \g Instance active object as member of the previously active object
  : instance ( "name" -- )
  
negative.code:    get-current >o activate
     create immediate  sizeof @ , sizeof +!  
     deactivate odrop
     does> @ imp @ if (impinstance) else (expinstance) then ;
  
  \g Dump object memory 
  : dump  self sizeof @ dump ;
  