anchor.diff:      open ProviderImplementation.ProvidedTypes.AssemblyReaderReflection
       open ProviderImplementation.ProvidedTypes.UncheckedQuotations
   
  -    #if !NO_GENERATIVE
  -
  -    type (*internal*) ExpectedStackState =
  +#if !NO_GENERATIVE
  +
  +    type ExpectedStackState =
           | Empty = 1
           | Address = 2
           | Value = 3
  
positive.code: 
          let disposing = Event<EventHandler,EventArgs>()
  
      #if !FX_NO_LOCAL_FILESYSTEM
          let probingFolders = ResizeArray()
          let handler = ResolveEventHandler(fun _ args -> this.ResolveAssembly(args))
          do AppDomain.CurrentDomain.add_AssemblyResolve handler
      #endif
  
          new (namespaceName:string,types:list<ProvidedTypeDefinition>) = new TypeProviderForNamespaces([(namespaceName,types)])
          new () = new TypeProviderForNamespaces([])
  
negative.code:             member x.Dispose() =
                  disposing.Trigger(x, EventArgs.Empty)
                  AppDomain.CurrentDomain.remove_AssemblyResolve handler
  #endif
  
          member __.AddNamespace (namespaceName,types:list<_>) = otherNamespaces.Add (namespaceName,types)
  
  