anchor.diff:                  yield! collectOpens decls
                   yield! Seq.collect visitDeclaration decls
               | SynModuleDecl.DoExpr (_,e,_) ->
  -//                yield! rcheck Scope.Below decl.Range
  -                //yield! rcheck Scope.Below r 
                   yield! visitExpr e
               | _ -> ()
           }
  +
   
       let private visitModuleOrNamespace moduleOrNs =
           seq {
  
positive.code:                 yield! visitExpr e
              | SynExpr.Quote (_,isRaw,e,_,r) ->
                  // subtract columns so the @@> or @> is not collapsed
                  let rStart = Range.mkPos r.StartLine (r.StartColumn+(if isRaw then 3 else 2)) 
                  let rEnd   = Range.mkPos r.EndLine   (r.EndColumn - (if isRaw then 3 else 2)) 
                  yield! rcheck Scope.Same <| mkFileIndexRange r.FileIndex rStart rEnd
                  yield! visitExpr e
              | SynExpr.Tuple (es,_,r) ->
                  yield! rcheck Scope.Same r
  
negative.code:                 let prefixLength = "#".Length + directive.Length + " ".Length
                  Some (Range.mkRange "" (Range.mkPos r.StartLine prefixLength) r.End)
              | _ -> None)
  
  
      let rec private visitDeclaration (decl: SynModuleDecl) = 
          seq {
  