@verb #4:"_set_teachers" this none this rxd #55
@program #4:"_set_teachers" this none this
if (!caller_perms().wizard)
  raise(E_PERM)
endif
{newteachs} = args
for x in (newteachs)
  typeof(x) == $OBJ || raise(E_INVARG)
endfor
for x in (newteachs)
  if (!(x in this.teachers))
    x.students = setadd(x.students, this)
  endif
endfor
for x in (this.teachers)
  if (!(x in newteachs))
    x.students = setremove(x.students, this)
  endif
endfor
this.teachers = newteachs
"Last modified by Lao-Tzu (#8084) on Fri Apr  9 17:31:36 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:49:38 2005 MDT."
.