Permalink
Browse files

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

…unctions for use within defrecord implementation
  • Loading branch information...
dmiller committed Jan 7, 2012
1 parent a78553b commit 9e8c7c7372e922922b08c19e147027638a0b3d43
Showing with 3 additions and 1 deletion.
  1. +3 −1 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))

0 comments on commit 9e8c7c7

Please sign in to comment.