anchor.diff:          let options source = checker.GetCheckOptionsFromScriptRoot(filename, source, DateTime.Now, [| |])
           checker.UntypedParse(filename, source, options source).ParseTree
           
  -    let Parse source = MakeAstNode (getParseTree source)
  +    let Parse filename source = MakeAstNode (getParseTree source)
   
       // Active patterns to make dealing with the syntax tree more convenient
       let (|ModuleOrNamespaceChildren|_|) (expression : SynModuleOrNamespace) =
  
positive.code:             | Expression e -> Some(e.Range)
              | Ident i -> Some(i.idRange)
              | MatchClause c -> Some(c.Range)
              | _ -> raise (new NotImplementedException("Add a new entry to the active pattern for Range:" + (string node)))
  
      // Utility functions to avoid having to match patterns to get children or range
  
negative.code:                     | SynExpr.ArbitraryAfterError(_,_) -> None
                      | SynExpr.LongIdent(_,LongIdentWithDots(is,_),_,__) -> Some (List.map AstNode.Ident is)
                      | SynExpr.Lambda(_,_,p,e,_) -> Some([AstNode.Expression e;AstNode.SimplePatterns p])
                      | SynExpr.Sequential(_,_,e1,e2,_)
                      | SynExpr.IfThenElse(e1,e2,None,_,_,_,_) -> Some([AstNode.Expression e1; AstNode.Expression e2])
                      | SynExpr.IfThenElse(e1,e2,Some(e3),_,_,_,_) -> Some([AstNode.Expression e1; AstNode
  .Expression e2; AstNode.Expression e3])
  