anchor.diff:            sc-exit OF drop r> drop EXIT ENDOF
             sc-yield OF drop r> drop EXIT ENDOF
           ENDCASE
  -	\ Some special call was made but we don't know that to do with it...
  +        \ Some special call was made but we don't know that to do with it...
           THROW
         THEN
         stack-to-client-data
  
positive.code: 
  
  \ Client interface.
  
  \ First, the machinery.
  
  
negative.code:   2>r instance>qpath 2r> string-to-buffer ;
  
  : call-method ( str ihandle arg ... arg -- result return ... return )
    nargs flip-stack zcount
    debug-client-interface? IF
       ." ci: call-method " 2dup type cr
    THEN
    rot ['] $call-method CATCH
    nrets 0= IF drop ELSE \ if called with 0 return args do not return the catch result
       dup IF nrets 1 ?DO -444 LOOP THEN
       nrets flip-stack 
    THEN
  ;
  
  \ From the PAPR.
  : test-method ( phandle str -- missing? )
     zcount
     debug-client-interface? IF
        ." ci: test-method " 2dup type cr
     THEN
     rot find-method dup IF nip THEN 0=
  ;
  
  : milliseconds  milliseconds ;
  
  