anchor.diff:                  keys.[!cur]
               
               member this.KeyCompare(k) =
  -                ByteComparer.cmp(keys.[!cur], k)
  +                ByteComparer.Compare(keys.[!cur], k)
   
               member this.Value() =
                   let v = pairs.[keys.[!cur]]
  
positive.code:             else
                  let mid = (max + min) / 2
                  let kmid = keys.[mid]
                  let cmp = ByteComparer.cmp (kmid, k)
                  if 0 = cmp then mid
                  else if cmp<0  then search k (mid+1) max sop mid ge
                  else search k min (mid-1) sop le mid
  
negative.code:                 i <- i + 1
          if i>len then result else (xlen - ylen)
  
      let CompareWithin (x:byte[],off,xlen,y:byte[]) =
          let ylen = y.Length
          let len = if xlen<ylen then xlen else ylen
          let mutable i = 0
  