diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-11-12 08:14:51 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-11-12 08:14:51 -0500 |
| commit | 41f93f64a701f4a3a6ea8ecae23dc6f294d19e58 (patch) | |
| tree | cbea99b20cc834bbdd0221a52cb4e1c47e896611 | |
| parent | c58a6cfaf5788a104f4a1dcb488f731ad94a2da0 (diff) | |
be tolerant of missing doc string in protocol sig
| -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 efde3022..470535c4 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -312,7 +312,7 @@ sigs (reduce (fn [m s] (let [mname (with-meta (first s) nil) arglists (if (vector? (second s)) (list (second s)) (second s)) - fx (nth s 2) + fx (nth s 2 nil) doc (when (string? fx) fx) mopts (apply hash-map (nthnext s (if (string? fx) 3 2)))] (assoc m (keyword mname) |