From f646e0d470fed9e56f5af0720bc189819dec40a0 Mon Sep 17 00:00:00 2001 From: arc Date: Sat, 27 Oct 2012 23:29:07 +1300 Subject: [PATCH] changed port number from literal to listener-or-addr argument in server.scm --- lib/chibi/net/server.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/chibi/net/server.scm b/lib/chibi/net/server.scm index 663fdc30..6ec40ca1 100644 --- a/lib/chibi/net/server.scm +++ b/lib/chibi/net/server.scm @@ -8,7 +8,8 @@ ((fileno? listener-or-addr) listener-or-addr) ((integer? listener-or-addr) - (make-listener-socket (get-address-info "localhost" 5556))) + (make-listener-socket + (get-address-info "localhost" listener-or-addr))) (else (make-listener-socket listener-or-addr)))) (max-requests (if (pair? o) (car o) default-max-requests))