path: root/vim/bundle/slimv/swank-clojure/swank/util/hooks.clj

(ns swank.util.hooks)

(defmacro defhook [name & hooks]
  `(defonce ~name (ref (list ~@hooks))))

;;;; Hooks
(defn add-hook [place function]
  (dosync (alter place conj function)))

(defn run-hook [functions & arguments]
  (doseq [f @functions]
    (apply f arguments)))