@verb #3797:"set_chan" this none this rxdo #833
@program #3797:"set_chan" this none this
$perm_utils:can_hack() || raise(E_PERM)
{id, ?data = 0} = args
i = listiassoc(id, this.channels)
if (data)
  if (i)
    this.channels[i] = {id, data}
  else
    this.channels = {@this.channels, {id, data}}
  endif
elseif (i)
  this.channels[i..i] = {}
endif
.