   []
   @connection-info*)
 
-(defn server-status
-  "Returns a keyword representing the current status of the server.
-  i.e. :disconnected, :connected or some connecting status."
-  []
-  (:status @connection-info*))
-
 (defn connected?
   "Returns true if the server is currently connected"
   []
-  (= :connected (server-status)))
+  (= :connected @connection-status*))
 
 (defn disconnected?
   "Returns true if the server is currently disconnected"
   []
-  (= :disconnected (server-status)))
+  (not (connected?)))
 
 (defn internal-server?
   "Returns true if the server is internal"

  ([port] (connect-external-server "127.0.0.1" port))
  ([host port]
     (connect host port)
     (server-status)))

(defn boot-external-server
  "Boot an external server by starting up an external process and connecting to


  (snd \"/foo\" 1 2.0 \"eggs\")"
  [path & args]
  (when (disconnected?)
    (throw (Exception. "Unable to send messages to a disconnected server. Please boot or connect to a server.")))
  (apply server-snd path args))

