sclass Tok_SettableWithVar > Tok_SettableWithChangeFields {
  *() { super("settableWithVar"); }
  
  S replacement() {
    ret tok_formatDollarVars(
      "public transient simplyCached FieldVar<$boxedType> $varFunc() {
        ret new FieldVar<$boxedType>(this, $fieldName, -> $var(), $var -> $var($var)); }\n",
      varFunc := "var" + firstToUpper(var),
      +var,
      +boxedType(),
      fieldName := quoted(var))
      + super.replacement();
  }
}

Began life as a copy of #1034142