Method code for $classification.set_classification()

[Turn on line numbering]

---

arg name, definer, value;

switch (value[1]) {
    case 'set:
        classification = value[2];
    case 'add:
        classification = setadd(classification, value[2]);
    case 'del:
        classification = setremove(classification, value[2]);
    default:
        throw(~type, "Unknown action: " + value[1]);
}

// $#Edited: 24 Sep 99 13:23 $user_stephen

---

[]