anchor.diff:     does> @ state @ if postpone doobj dup , then >o single odrop ;
   
   \g Runtime for instance members
  -: doinst @r+ o@ + >o @r+ execute odrop ;
  +: doinst @r+ o@ + >o later odrop ;
   
   : (instance)
      create immediate sizeof @ , sizeof +!
  
positive.code: \ OBJECT STACK
  
  expose-module private
  
  16 cells
  
negative.code:    ['] cloneslot forslots ;
  
  \g Runtime for cloned objects
  : doobj @r+ >o later odrop ;
  
  : single  (extend) parse-word (late) (extended) ;
  
  