session-func.c (guile_ssh_authenticate_server): Improve.

* src/session-func.c (guile_ssh_authenticate_server): Throw an
  exception on error.
* src/session-func.h: Add `guile_ssh_authenticate_server'.