Updated to Java commit 8a0482d (2011.12.02): declare record factory f…

…unctions for use within defrecord implementation
ragnard · Jan 7, 2012 · 9e8c7c7 · 9e8c7c7
1 parent a78553b
commit 9e8c7c7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Clojure/Clojure.Source/clojure/core_deftype.clj b/Clojure/Clojure.Source/clojure/core_deftype.clj
@@ -349,7 +349,9 @@
         hinted-fields fields
         fields (vec (map #(with-meta % nil) fields))]
     `(let []
-       ~(emit-defrecord name gname (vec hinted-fields) (vec interfaces) methods)
+       (declare ~(symbol (str  '-> gname)))
+       (declare ~(symbol (str 'map-> gname)))
+	   ~(emit-defrecord name gname (vec hinted-fields) (vec interfaces) methods)
        (import ~classname)
        ~(build-positional-factory gname classname fields)
        (defn ~(symbol (str 'map-> gname))