04/17: avahi: Fix exception when #:timeout is #f.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9cf2f088525ff6e77b2de72a4e5115c728233969
Author: nathan <nathan_mail@nborghese.com>
AuthorDate: Mon Jul 10 23:26:54 2023 -0400

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

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."