latest

src/net/bowmap/server/network/server.clj modified (view file)

@@ -11,6 +11,14 @@       (ServerSocket/.close server)       (throw t)))) +(defonce ^:private server nil)+ (defn start-server!+  "Starts a TCP server at the given port and address, replacing an already+   started server if one exists."   [& {:keys [port bind-addr backlog] :or {:backlog 50 :port 0}}]-  (ServerSocket. port backlog bind-addr))+  (let [server-socket (ServerSocket. port backlog bind-addr)]+    (when server+      (ServerSocket/.close server))+    (alter-var-root #'server (constantly server-socket))+    server-socket))