diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-12-01 13:23:50 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-12-01 13:23:50 -0500 |
| commit | 67dd70a33f83eb2b7a305f8a3d00a62555efacec (patch) | |
| tree | aa29a93445e2ace992cc9377214f28667ceceea1 | |
| parent | dd152aed9c5d5789cb32b0b46f354fb07606fede (diff) | |
gen one-off names for dynamic deftype
| -rw-r--r-- | src/clj/clojure/core_deftype.clj | 2 |
1 files changed, 1 insertions, 1 deletions
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 %))) %) |