From 043f1693b1365f08f469214ae14b145ecfe6fa53 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 11 Apr 2022 19:55:35 +0200 Subject: Fix name collision in server entry-point. --- module/calp/entry-points/server.scm | 6 +++--- 1 file 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 [::] for IPv6")))) (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 [::] for IPv6")))) ;; 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) -- cgit v1.2.3