anchor.diff:  
   object { odefs
   : self o@ ;
  -.s
   : /object self cell+ cell+ ;
   : extend odefs ;
   : extended o> o> swap >o set-current ;
  
positive.code:    create /object @ , /object +! does> @ self + ;
  : cloned ( -- o )
     >oarena here
     self /object self @ wordlist ! here over @ dup allot move 
     oarena> ;
  : clone ( "name" -- ) cloned constant immediate ;
  : dump  self /object @ dump ;
  
negative.code:    here to ohere 
     sdict0 to dict0  sdicttop to dicttop  shere to here ;
  
  : { dup +order state @ if postpone literal postpone >o else >o then ; immediate
  : } previous state @ if postpone odrop else odrop then ; immediate
  : odefs get-current o> swap >o >o o@ set-current ;
  