src/channel-func.c (guile_ssh_channel_close): Fix return value.

* src/channel-func.c (guile_ssh_channel_close): Fix return value:
  return SCM_BOOL_T if channel is closed successfully, SCM_BOOL_F
  otherwise.