anchor.diff:          }
       member __.SetValue ty name value =
           if ty = "Variable" then
  -            variableValues <- variableValues |> Map.add name value
  +            variableValues <- variableValues |> Map.add name (value, true) // The user chose this one.
           else
               attributeValues <- attributeValues |> Map.add name value
       member __.Generate (config:GeneratorConfiguration) =
  
positive.code:                                         var.Values
                                          |> Array.filter (fun a -> VariableConditionEvaluator.resolve attributeValuesByIndex variableValuesByIndex a.Condition)
                                          |> Array.map (fun a -> a.Value)
                                  let value =
                                      if value.IsSome && (not var.PermitsFreeValue) && (suggestions |> Array.tryFind ((=) value.Value) |> Option.isNone) then
                                          variableValues <- variableValues |> Map.remove var.Name
  
negative.code:                                 }
                              else
                                  let attributeValuesByIndex = attributeValues |> Map.toSeq |> Seq.choose (fun (n,v) -> n |> attributeNameToIndex |> Option.map (fun i -> (i,v))) |> Map.ofSeq
                                  let (currentValue, userChoseThisValue) = variableValues |> Map.tryFind var.Name |> fun o -> if o.IsSome then (Some (o.Value |> fst), o.Value |> snd) else (None, false)
                                  let value =
                                      if (not userChoseThisValue) then
                                          variableValues <- variableValues |> Map.remove var.Name
                                          None
                                      else
                                          currentValue
                                  let variableValuesByIndex = variableValues |> Map.toSeq |> Seq.choose (fun (n,(v,_)) -> n |> variableNameToIndex |> Option.map (fun i -> (i,v))) |> Map.ofSeq
                                  let suggestions =
                                      if haveSeenEmpty then
                                          [||]
  