From 67dd70a33f83eb2b7a305f8a3d00a62555efacec Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Tue, 1 Dec 2009 13:23:50 -0500 Subject: gen one-off names for dynamic deftype --- src/clj/clojure/core_deftype.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/clj') diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index 8d1a5065..6b54f2f9 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -208,7 +208,7 @@ When dynamically evaluated, the class will have a generated name." [name [& fields] & [[& interfaces] & methods]] - (let [gname name ;(if *compile-files* name (gensym (str name "__"))) + (let [gname (if *compile-files* name (gensym (str name "__"))) interfaces (map #(if (var? (resolve %)) (:on (deref (resolve %))) %) -- cgit v1.2.3-70-g09d2