anchor.diff:                      let couldBeRoot = (nextGeneration.Count = 0)
   
                       let maybeFlush args = 
  -                        let (sofar, first, nextPageNumber, boundaryPageNumber) = args
  +                        let {sofar=sofar; first=first; nextPage=nextPageNumber; boundaryPage=boundaryPageNumber} = args
                           // TODO flush logic used to be guarded by if sofar > 0.  should it still be?
                           let available = calcAvailable sofar couldBeRoot
                           let fitsInline = (available >= neededForInline)
  
positive.code:                             if nextN <> (thisPageNumber+1) then utils.SeekPage(fs, pageSize, nextN)
                              nextGeneration.Add(thisPageNumber, snd children.[i-1])
                              overflows.Clear()
                              (0, 0, nextN, nextB)
                          else
                              (sofar, first, nextPageNumber, boundaryPageNumber)
  
                      let addKeyToParent args = 
                          let (sofar, firstChild, nextPageNumber, boundaryPageNumber) = args
                          if isLastChild then 
                              (sofar, firstChild, nextPageNumber, boundaryPageNumber)
                          else
                              let first = if sofar=0 then i else firstChild
                              let sf1 = 
                                  if sofar = 0 then
                                      overflows.Clear()
  
negative.code:     let private FLAG_BOUNDARY_NODE:byte = 2uy
      let private FLAG_ENDS_ON_BOUNDARY:byte = 4uy
  
  
      type writeParentPagesState = 
          { 
              sofar:int; 
              first:int;
              //items:(int32*byte[]) list; 
              nextPage:int; 
              boundaryPage:int; 
              //children:(int32*byte[]); 
              //overflows:Map<byte[],int32>;
          }
  
      let Create(fs:Stream, pageManager:IPages, csr:ICursor) :int32 = 
          let pageSize = pageManager.PageSize
          let token = pageManager.Begin()
  