changed port number from literal to listener-or-addr argument in server.scm

This commit is contained in:
arc 2012-10-27 23:29:07 +13:00
parent 4f554499f8
commit f646e0d470

View file

@ -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))