diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-04-15 11:46:44 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-04-15 11:46:44 -0400 |
| commit | 1eb878646f465bacc5ffb90173ad11898ae39151 (patch) | |
| tree | 107e5a7b1645d5805a58f2c5ee99ac0a41e46047 | |
| parent | ba9b7924de3f5b785bcbe1ed6e8ca5bf0ca7ec3d (diff) | |
doc fix, remove reference to factory fns
| -rw-r--r-- | src/clj/clojure/core_deftype.clj | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index f7f22754..ece4086a 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -204,12 +204,6 @@ given fields, and, optionally, methods for protocols and/or interfaces. - A factory function of current.ns/Name will be defined, - overloaded on 2 arities, the first taking the designated fields in - the same order specified, and the second taking the fields followed - by a metadata map (nil for none) and an extension field map (nil for - none). - The class will have the (immutable) fields named by fields, which can have type hints. Protocols/interfaces and methods are optional. The only methods that can be supplied are those @@ -346,7 +340,7 @@ One constructors will be defined, taking the designated fields." [name [& fields] & opts+specs] - (let [gname name ;(if *compile-files* name (gensym (str name "__"))) + (let [gname name [interfaces methods opts] (parse-opts+specs opts+specs) classname (symbol (str *ns* "." gname)) tag (keyword (str *ns*) (str name)) |