anchor.diff:          | V.InlineModuleProperty i ->
               match i.Quotation with
               | None -> ()
  -            | Some e -> List.iter (deps.Connect src) (GetCalls e)
  +            | Some e -> List.iter (deps.Connect src) (getCalls e)
           | V.JavaScriptModuleProperty e ->
  -            List.iter (deps.Connect src) (GetCalls e)
  +            List.iter (deps.Connect src) (getCalls e)
           | _ -> ()
       let rec visitType assem ctx (t: V.Type) =
           let self =
  
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: 
  /// Finds all outgoing calls, field accesses and
  /// constructor expressions in the quotation.
  let getCalls (expr: Q.Expression) =
      let rec f ds expr =
          match expr with
          | Q.Call (m, xs) ->
  