ag.clj

(let [precedence-counter (atom 0)]

(defn make-agent
  {:post [(instance? clojure.lang.Agent %)]}
  [& state]
  (let [state (apply array-map state)
        agent-type (or (:type state) ::agent)
        state (dissoc state :type)
        a (agent (with-meta 
                   (merge {:name nil
                           :state :created
                           :alive true
                           :fail false
                           :tag nil
                           :lock (atom false)
                           :program (constantly false)
                           :precedence (swap! precedence-counter inc)}
                          state)
                   {:type agent-type}))]
    (send a assoc
          :this (delay a)
          :env (ref (delay {:agents (set-sorted-by-precedence a)})))
    (await a)
    a)))