anchor.diff:      | :? FieldReference as f ->
           updateF f.DeclaringType |> Option.iter (fun t -> f.DeclaringType <- t)
       | :? Instruction as instr ->
  -        updateInstruction updateF ilProc instr
  +        updateInstruction updateF instr
       | :? (Instruction []) as instructions ->
           for instr in instructions do
  -            updateInstruction updateF ilProc instr
  +            updateInstruction updateF instr
       | _ -> ()
   
   
  
positive.code:         updateF v.VariableType |> Option.iter (fun t -> v.VariableType <- t)
  
      if m.HasBody then
          let ilProc = m.Body.GetILProcessor()
  
          let instructions = ilProc.Body.Instructions |> Seq.toArray
          ilProc.Body.Instructions.Clear()
  
          for instr in instructions do
              updateInstruction updateF ilProc instr
  
  and updateInstruction (updateF : TypeReference -> TypeReference option) (ilProc : ILProcessor) (instr : Instruction) =
      match instr.Operand with
      | :? TypeReference as tyRef -> 
          updateF tyRef |> Option.iter (fun t -> instr.Operand <- t)
  
negative.code: open Mono.Cecil.Cil
  
  let ass = Assembly.GetExecutingAssembly()
  let allDecls = BindingFlags.NonPublic ||| BindingFlags.Public ||| BindingFlags.Instance ||| BindingFlags.Static
  let tryFindFsiName =
      let fsiRegex = Regex("FSI_[0-9]{4}")
      fun (name : string) ->
  