anchor.diff:  /// the whitespace.
   [<RequireQualifiedAccess>]
   [<NoComparison; NoEquality>]
  -type LexerWhitespaceContinuation = 
  +type LexerWhitespaceContinuation =
       | Token            of LexerIfdefStackEntries
  -    | IfDefSkip        of LexerIfdefStackEntries * int * range
  -    | String           of LexerIfdefStackEntries * range
  -    | VerbatimString   of LexerIfdefStackEntries * range
  -    | TripleQuoteString of LexerIfdefStackEntries * range
  -    | Comment          of LexerIfdefStackEntries * int * range
  -    | SingleLineComment of LexerIfdefStackEntries * int * range
  -    | StringInComment    of LexerIfdefStackEntries * int * range
  -    | VerbatimStringInComment   of LexerIfdefStackEntries * int * range
  -    | TripleQuoteStringInComment   of LexerIfdefStackEntries * int * range
  -    | MLOnly            of LexerIfdefStackEntries * range
  +    | IfDefSkip        of LexerIfdefStackEntries * int * range:range
  +    | String           of LexerIfdefStackEntries * range:range
  +    | VerbatimString   of LexerIfdefStackEntries * range:range
  +    | TripleQuoteString of LexerIfdefStackEntries * range:range
  +    | Comment          of LexerIfdefStackEntries * int * range:range
  +    | SingleLineComment of LexerIfdefStackEntries * int * range:range
  +    | StringInComment    of LexerIfdefStackEntries * int * range:range
  +    | VerbatimStringInComment   of LexerIfdefStackEntries * int * range:range
  +    | TripleQuoteStringInComment   of LexerIfdefStackEntries * int * range:range
  +    | MLOnly            of LexerIfdefStackEntries * range:range
       | EndLine           of LexerEndlineContinuation
  -    
  +
       member x.LexerIfdefStack =
  -        match x with 
  +        match x with
           | LexCont.Token ifd
           | LexCont.IfDefSkip (ifd,_,_)
           | LexCont.String (ifd,_)
  
positive.code:           | SynExpr.TypeTest (e,_,_)
            | SynExpr.Upcast (e,_,_)
            | SynExpr.AddressOf (_,e,_,_)
            | SynExpr.CompExpr (_,_,e,_) 
            | SynExpr.ArrayOrListOfSeqExpr (_,e,_)
            | SynExpr.Typed (e,_,_)
            | SynExpr.FromParseError (e,_) 
            | SynExpr.Do (e,_)
            | SynExpr.Assert (e,_)
            | SynExpr.DotGet (e,_,_,_) 
            | SynExpr.LongIdentSet (_,e,_)
            | SynExpr.New (_,_,e,_) 
            | SynExpr.TypeApp (e,_,_,_,_,_,_) 
            | SynExpr.LibraryOnlyUnionCaseFieldGet (e,_,_,_) 
            | SynExpr.Downcast (e,_,_)
            | SynExpr.InferredUpcast (e,_)
            | SynExpr.InferredDowncast (e,_)
  
negative.code: let FsiDynamicModulePrefix = "FSI_"
  
  [<RequireQualifiedAccess>]
  module FSharpLib =
      let Root      = "Microsoft.FSharp"
      let RootPath  = IL.splitNamespace Root
      let Core      = Root + ".Core"
      let CorePath  = IL.splitNamespace Core
  
  
  [<RequireQualifiedAccess>]
  module CustomOperations =
      [<Literal>]
      let Into = "into"
  
  //------------------------------------------------------------------------
  