diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-02-22 19:46:47 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-02-22 19:46:47 +0300 |
| commit | 110b3e3edc63def6c2d796bab29eb3bc289954a8 (patch) | |
| tree | 99152598faa288b219d06dc6b3e0f71ca17e8906 /examples/echo | |
| parent | examples/echo/client.scm.in (get-prvkey, main): Simplify checks (diff) | |
| download | guile-ssh-110b3e3edc63def6c2d796bab29eb3bc289954a8.tar.gz | |
examples/echo/server.scm.in (print-help): Rename
* examples/echo/server.scm.in (print-help): Rename to
`print-help-and-exit'.
(main): Use it.
Diffstat (limited to 'examples/echo')
| -rw-r--r-- | examples/echo/server.scm.in | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/examples/echo/server.scm.in b/examples/echo/server.scm.in index 6a9ce04..4e92bec 100644 --- a/examples/echo/server.scm.in +++ b/examples/echo/server.scm.in @@ -121,7 +121,7 @@ (r (string-append res str) (read-line port 'concat)) res))) -(define (print-help) +(define (print-help-and-exit) "Print help message and exit." (display "\ Usage: server.scm [ options ] @@ -131,8 +131,8 @@ Options: --dsakey=<key>, -d <key> Set host DSA key. --port=<port>, -p <port> Set bind port of the server. --help, -h Print this message and exit. -")) - +") + (exit 0)) (define *option-spec* '((dsakey (single-char #\d) (value #t)) @@ -148,10 +148,8 @@ Options: (port (option-ref options 'port *default-bindport*)) (help-wanted (option-ref options 'help #f))) - (if help-wanted - (begin - (print-help) - (exit))) + (and help-wanted + (print-help-and-exit)) (let ((server (make-server #:bindport (string->number port) #:rsakey rsakey |