anchor.diff:                  match t.DeclaringType with
                   | null ->
                       let qname = t.FullName.Replace('/','.')
  -                    a.GetType(qname)
  +                    a.GetType(qname,true)
                   | dt ->
                       let dt0 = loadType dt
  +                    printfn "%s" t.Name
                       dt0.GetNestedType(t.Name)
   
               let t0 = loadType t
  
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: let state = { CompiledAssemblyCount = 0 ; FsiDynamicAssembly = ass ; TypeIndex = Map.empty }
  let state = getAssemblyDiff state
  
  let x = 34