Method code for $sys.set_valid_genders()

[Turn off line numbering]

---

  1: arg name, definer, value;
  2: 
  3: switch (value[1]) {
  4:     case 'set:
  5:         valid_genders = value[2];
  6:     case 'add:
  7:         valid_genders = setadd(valid_genders, value[2]);
  8:     case 'del:
  9:         valid_genders = setremove(valid_genders, value[2]);
 10:     default:
 11:         throw(~type, "Unknown action: " + value[1]);
 12: }

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]