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:    THEN
  ;
  
  : release ( addr len -- ) release ;
  
  : instance-to-package ( ihandle -- phandle )
    ihandle>phandle ;
  
negative.code: ;
  
  : finddevice ( zstr -- phandle )
     zcount
     debug-client-interface? IF
        ." ci: finddevice " 2dup type cr
     THEN
     find-node dup 0= IF drop -1 THEN
  ;
  
  : getprop ( phandle zstr buf len -- len' )
    >r >r zcount rot get-property
  