anchor.diff:  \ OBJECT STACK
  -
  +require later.fs
   expose-module private
   
   16 cells
  
positive.code:    ['] cloneslot forslots ;
  
  \g Runtime for cloned objects
  : doobj @r+ >o @r+ execute odrop ;
  
  : single  (extend) parse-word (late) (extended) ;
  
  
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 +!
  