server.scm (make-server): Improve.

* src/server-type.c (guile_ssh_make_server): Change Scheme name to
  `%make-server'.
* src/server.scm (make-server): New procedure.