anchor.diff:     (extended) odrop ;
   
   \g Send late message to current object
  -: (late) ( addr len --  O: obj -- ) (extend) nfa doword extended ;
  +: (late) ( addr len --  O: obj -- ) nfa doword ;
   
   \g Send late message to current object
   : late ( "message" -- ?  runtime: ? -- ?  O: obj -- )
  
positive.code: 
  \g Print context information
  : .ctx
     order o.s .s ;
  
  \ OBJECT ARENA
  
  
negative.code: extended
  
  (world) +order
  : world (world) >o single odrop ;
  previous
  
  
  