(defn close-server [server] (doseq [s @(:connections server)] (close-socket s)) (dosync (ref-set (:connections server) #{})) (.close ^ServerSocket (:server-socket server)))
Comments top
No comments for close-server. Log in to add a comment.