From bcc325db672bfa4f731d2720e98f642408fb09f2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 04:49:20 +0200 Subject: Minor cleanup of entry-points/server. --- module/calp/entry-points/server.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/module/calp/entry-points/server.scm b/module/calp/entry-points/server.scm index d357015d..903d085d 100644 --- a/module/calp/entry-points/server.scm +++ b/module/calp/entry-points/server.scm @@ -54,10 +54,9 @@ and [::] for IPv6")))) ;; update address if it was left blank. A bit clumsy since ;; @var{addr} & @var{family} depend on each other. ;; placed after load-calendars to keep Guile 2.2 compability. - (set! addr - (if addr addr - (if (eqv? family AF_INET6) - "::" "0.0.0.0"))) + (unless addr + (set! addr (if (eqv? family AF_INET6) + "::" "0.0.0.0"))) (when (option-ref opts 'sigusr #f) (format (current-error-port) (_ "Listening for SIGUSR1~%")) -- cgit v1.2.3