* tests/inetd.sh: Pass 'make-inetd-constructor' a list of endpoints.
---
tests/inetd.sh | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/tests/inetd.sh b/tests/inetd.sh
index ef18800..83037bf 100644
--- a/tests/inetd.sh
+++ b/tests/inetd.sh
@@ -42,15 +42,18 @@ cat > "$conf" <<EOF
(make <service>
#:provides '(test-inetd)
#:start (make-inetd-constructor %command
- (make-socket-address AF_INET
- INADDR_LOOPBACK
- $PORT))
+ (list
+ (endpoint (make-socket-address
+ AF_INET
+ INADDR_LOOPBACK
+ $PORT))))
#:stop (make-inetd-destructor))
(make <service>
#:provides '(test-inetd-unix)
#:start (make-inetd-constructor %command
- (make-socket-address AF_UNIX
- "$service_socket")
+ (list
+ (endpoint (make-socket-address
+ AF_UNIX "$service_socket")))
#:max-connections 5)
#:stop (make-inetd-destructor)))
--
2.36.0
