anchor.diff:          | V.InlineMethod inl ->
               match inl.Quotation with
               | None -> ()
  -            | Some e -> List.iter (deps.Connect src) (GetCalls e)
  +            | Some e -> List.iter (deps.Connect src) (getCalls e)
           | V.JavaScriptMethod e ->
  -            List.iter (deps.Connect src) (GetCalls e)
  +            List.iter (deps.Connect src) (getCalls e)
           | V.RemoteMethod (_, ref) ->
               ref := Some (info.AddRemoteMethod m.Reference)
           | V.StubMethod -> ()
  
positive.code:                 :: ds
              List.fold f ds xs
          | Q.CallModule (m, xs) ->
              let ds = M.MethodNode m.Entity :: ds
              List.fold f ds xs
          | Q.FieldGetStatic fld ->
              M.TypeNode fld.Entity.DeclaringType :: ds
          | Q.FieldSetStatic (fld, x) ->
              f (M.TypeNode fld.Entity.DeclaringType :: ds) x
          | Q.NewObject (ctor, xs) ->
              List.fold f (M.ConstructorNode ctor.Entity :: ds) xs
          | Q.NewRecord (t, xs) ->
              List.fold f (M.TypeNode t.DeclaringType :: ds) xs
          | Q.NewUnionCase (t, xs) ->
  
negative.code:             deps.Connect src (M.ResourceNode rT)
          match c.Kind with
          | V.JavaScriptConstructor e ->
              List.iter (deps.Connect src) (getCalls e)
          | _ -> ()
      let visitMethod src (m: V.Method) =
          m.Requirements
  