3 seconds

This commit is contained in:
2026-04-08 09:55:56 +02:00
parent 749218d05d
commit f4502e6f40

View File

@@ -456,7 +456,7 @@
(server-cert (certificate cert)) (server-cert (certificate cert))
(channel (make-async-channel)) (channel (make-async-channel))
(server (let ((s (start-web-server h channel cert))) (server (let ((s (start-web-server h channel cert)))
(sleep 1) ;;; ToDO Check if server is up (sleep 3) ;;; ToDO Check if server is up
s)) s))
(port-nr (let ((pn (async-channel-get channel))) (port-nr (let ((pn (async-channel-get channel)))
(set-wv-context-port! h pn) (set-wv-context-port! h pn)