From d801c2975fe5fab8bc9bd5dc2f1d5b88a120cd46 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 31 Mar 2020 15:04:50 +0200
Subject: [PATCH 1/2] Web server html make-default-socket IPv6 support.

Allows the default http server to create IPv6 sockets.
---
 module/web/server/http.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/web/server/http.scm b/module/web/server/http.scm
index 05bf46bf0..447282f4c 100644
--- a/module/web/server/http.scm
+++ b/module/web/server/http.scm
@@ -39,7 +39,7 @@
 
 
 (define (make-default-socket family addr port)
-  (let ((sock (socket PF_INET SOCK_STREAM 0)))
+  (let ((sock (socket family SOCK_STREAM 0)))
     (setsockopt sock SOL_SOCKET SO_REUSEADDR 1)
     (bind sock family addr port)
     sock))
-- 
2.17.1