From de03fc12f134085df52ac17c625c55b209286a2d Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Wed, 12 Jun 2024 12:30:35 +0200
Subject: [PATCH] Allow CHAT_PORT to override chat.rkt example default port

---
 syndicate-examples/chat.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/syndicate-examples/chat.rkt b/syndicate-examples/chat.rkt
index 55cb69a..448d49e 100644
--- a/syndicate-examples/chat.rkt
+++ b/syndicate-examples/chat.rkt
@@ -42,5 +42,5 @@
     (run-tcp-client-relay
      ds
      #:hostname "localhost"
-     #:port 9001
+     #:port (string->number (or (getenv "CHAT_PORT") "9001"))
      #:import (lambda (v) (gatekeeper-resolve (embedded-value v) ref on-connected)))))