diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-11 19:55:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-11 19:55:35 +0200 |
| commit | 043f1693b1365f08f469214ae14b145ecfe6fa53 (patch) | |
| tree | b263d23f2140cc93805e6f3037f53e70eadd9aa5 | |
| parent | Translate newly added strings. (diff) | |
| download | calp-043f1693b1365f08f469214ae14b145ecfe6fa53.tar.gz calp-043f1693b1365f08f469214ae14b145ecfe6fa53.tar.xz | |
Fix name collision in server entry-point.
| -rw-r--r-- | module/calp/entry-points/server.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/calp/entry-points/server.scm b/module/calp/entry-points/server.scm index a4e8137a..26c2bee7 100644 --- a/module/calp/entry-points/server.scm +++ b/module/calp/entry-points/server.scm @@ -38,7 +38,7 @@ and <i>[::]</i> for IPv6</group>")))) (define opts (getopt-long args (getopt-opt options))) (define addr (option-ref opts 'addr #f)) - (define port (cond ((option-ref opts 'port #f) => string->number) + (define port% (cond ((option-ref opts 'port #f) => string->number) (else (port)))) (define family (cond [(option-ref opts 'six #f) AF_INET6] @@ -76,12 +76,12 @@ and <i>[::]</i> for IPv6</group>")))) ;; PID of this process ;; PWD of this process (format #t (_ "Starting server on ~a:~a~%I'm ~a, runing from ~a~%") - addr port + addr port% (getpid) (getcwd)) (catch 'system-error (lambda () - (start-server (list family: family port: port host: addr))) + (start-server (list family: family port: port% host: addr))) ;; probably address already in use (lambda (err proc fmt args errno) |