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: 
  /// 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) ->
  
negative.code:                 :: ds
              List.fold f ds xs
          | Q.CallModule (m, xs) ->
              let ds =
                  M.MethodNode m.Entity
                  :: M.TypeNode m.Entity.DeclaringType
                  :: 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) ->
              let ds =
                  M.ConstructorNode ctor.Entity
                  :: M.TypeNode ctor.Entity.DeclaringType
                  :: ds
              List.fold f ds xs
          | Q.NewRecord (t, xs) ->
              List.fold f (M.TypeNode t.DeclaringType :: ds) xs
          | Q.NewUnionCase (t, xs) ->
  