+ logf (LOG_DEBUG, "r=%d w=%d e=%d sp=%p", r, w, e, *sp);
+ if (*sp)
+ Tcl_DeleteChannelHandler ((*sp)->tcl_Channel, ir_tcl_tk_select_proc,
+ (*sp)->clientData);
+ if (!f)
+ {
+ if (*sp)
+ {
+ Tcl_Close (NULL, (*sp)->tcl_Channel);
+ *sp = (*sp)->next;
+ }
+ return ;
+ }