From 9cf2f088525ff6e77b2de72a4e5115c728233969 Mon Sep 17 00:00:00 2001
From: nathan <nathan_mail@nborghese.com>
Date: Mon, 10 Jul 2023 23:26:54 -0400
Subject: avahi: Fix exception when #:timeout is #f.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 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>
---
 guix/avahi.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'guix/avahi.scm')

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 @@ (define client-callback
                                   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."
-- 
cgit v1.2.3