replaced refs by atoms to prevent transactional locks

project.clj

@@ -1,5 +1,6 @@
-(defproject closchema "0.0.2"
+(defproject closchema "0.0.3-SNAPSHOT"
   :description "Implements the JSON Schema specification."
   :dependencies [[org.clojure/clojure "1.3.0"]]
+  :dev-dependencies [[swank-clojure "1.3.2"]]
   :repositories {"releases"  "http://192.168.0.7:8080/archiva/repository/internal/"
                  "snapshots" "http://192.168.0.7:8080/archiva/repository/snapshots/"})

src/closchema/core.clj

@@ -24,8 +24,8 @@
   `(let [body# #(do ~@body
                     (process-errors @(:errors *validation-context*)))]
      (if-not *validation-context*
-       (binding [*validation-context* {:errors (ref '())
-                                   :path (ref [])}]
+       (binding [*validation-context* {:errors (atom '())
+                                       :path   (atom  [])}]
          (body#))
        (body#))))
 
@@ -36,9 +36,9 @@
   `(binding [*parent* ~parent]
      (if-let [{path# :path} *validation-context*]
        (do
-         (dosync alter path# conj ~rel-path)
+         (swap! path# conj ~rel-path)
          ~@body
-         (dosync alter path# pop))
+         (swap! path# pop))
        (do ~@body))))
 
 
@@ -50,8 +50,8 @@
         data (second args)]
     `(let [error# {:ref ~path :key ~key :data ~data}]
        (if-let [{errors# :errors path# :path} *validation-context*]
-         (dosync (alter errors# conj
-                        (merge {:path (conj @path# ~path)} error#))))
+         (swap! errors# conj
+                        (merge {:path (conj @path# ~path)} error#)))
        (process-errors (list error#)))))