diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:49:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:49:20 +0200 |
| commit | bcc325db672bfa4f731d2720e98f642408fb09f2 (patch) | |
| tree | 631538cf6e6d149b3972905a4bae0c535086dc5a | |
| parent | Clean up btn. (diff) | |
| download | calp-bcc325db672bfa4f731d2720e98f642408fb09f2.tar.gz calp-bcc325db672bfa4f731d2720e98f642408fb09f2.tar.xz | |
Minor cleanup of entry-points/server.
| -rw-r--r-- | module/calp/entry-points/server.scm | 7 |
1 files 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 <i>[::]</i> for IPv6</group>")))) ;; 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~%")) |