diff options
| author | nathan <nathan_mail@nborghese.com> | 2023-07-10 23:26:54 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-07-11 15:47:56 +0200 |
| commit | 9cf2f088525ff6e77b2de72a4e5115c728233969 (patch) | |
| tree | e92d2c1f75a11f1a91cbd96e3268cd3f84830d4d /guix/avahi.scm | |
| parent | 7d9fdfb19d17dc99a4cf2548942c4f8ae7433572 (diff) | |
| download | guix-9cf2f088525ff6e77b2de72a4e5115c728233969.tar guix-9cf2f088525ff6e77b2de72a4e5115c728233969.tar.gz | |
avahi: Fix exception when #:timeout is #f.
* guix/avahi.scm (avahi-publish-service-thread): Fixes crash when timeout is
#f, which is the default for "guix publish --advertise"
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/avahi.scm')
| -rw-r--r-- | guix/avahi.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/avahi.scm b/guix/avahi.scm index 502b0b9dcd..574fe0b850 100644 --- a/guix/avahi.scm +++ b/guix/avahi.scm @@ -84,7 +84,9 @@ when STOP-LOOP? procedure returns true." client-flag/ignore-user-config) client-callback))) (while (not (stop-loop?)) - (iterate-simple-poll poll timeout)))))) + (if timeout + (iterate-simple-poll poll timeout) + (iterate-simple-poll poll))))))) (define (interface->ip-address interface) "Return the local IP address of the given INTERFACE." |