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