anchor.diff:                                                  fragment.Next.Prev <- fragment.Prev
                                                   fragment.Prev.Next <- fragment.Next
   
  -
  +                                                relinkSet.Add fragment.Prev |> ignore
                                                   if handler.compileNeedsPrev && fragment.Next <> epilog then
                                                       recompileSet.Add fragment.Next |> ignore
  -                                                else
  -                                                    relinkSet.Add fragment.Next |> ignore
   
                                                   fragment.Dispose()
                                                   deadSet.Add fragment |> ignore
  
positive.code: 
              dispose = fun () ->
                  memory.Value.Dispose()
          }
  
      let nativeSimple (maxArgs : int) (compile : 'value -> IAdaptiveCode<NativeCall>) ()  =
  
negative.code:                 dirtySet.ExceptWith deadSet
                  recompileSet.ExceptWith deadSet
                  relinkSet.ExceptWith deadSet
  
                  compileWatch.Restart()
                  for r in recompileSet do
  