chat.clj

(use '(clojure.contrib str-utils seq-utils duck-streams server-socket))

(def *connections* (ref []))

(defn- ire-handle-client [in out]
  (binding [*in* (reader in)
            *out* (writer out)]
     (dosync (commute *connections* conj *out*))
     (loop [input (read-line)]
       (when input
         (loop [[*out* & outs]  @*connections*]
           (println *out*)
           (when *out* 
             (println input)
             (flush)
             (recur outs)))
         (print "> ") (flush)
         (recur (read-line))))))