@verb #3797:"c_reset" this none this rxdo #833
@program #3797:"c_reset" this none this
comm = caller
comm:isa($comm) || raise(E_PERM)
chans = this:ls_chan(comm)
for chan in (chans)
  this:chan_part(chan, comm)
endfor
comm:_set_active(0)
comm:_set_user($nothing)
.