From ae24c5d54c48d286a58985e63425bb64f426656a Mon Sep 17 00:00:00 2001 From: Nicolas Buduroi Date: Mon, 14 Mar 2011 07:42:19 +0800 Subject: [PATCH] Removed code to extract defmethod docstring has this feature isn't supported by Clojure yet. --- src/marginalia/parser.clj | 6 +----- src/problem_cases/general.clj | 3 +-- 2 files changed, 2 insertions(+), 7 deletions(-) diff --git a/src/marginalia/parser.clj b/src/marginalia/parser.clj index 00faebf..c8f0258 100644 --- a/src/marginalia/parser.clj +++ b/src/marginalia/parser.clj @@ -160,11 +160,7 @@ (defmethod dispatch-form 'defmethod [form raw nspace-sym] - (let [ds (nth form 3) - docstring (when (string? ds) ds)] - [docstring - (strip-docstring docstring raw) - nspace-sym])) + [nil raw nspace-sym]) (defmethod dispatch-form :default [form raw nspace-sym] diff --git a/src/problem_cases/general.clj b/src/problem_cases/general.clj index 861c1ce..5d7f803 100644 --- a/src/problem_cases/general.clj +++ b/src/problem_cases/general.clj @@ -91,8 +91,7 @@ (defmulti kompile identity) -(defmethod kompile [::standard AutoIncClause] - "This is a docstring. On the left." +(defmethod kompile [:standard] [_] "GENERATED ALWAYS AS IDENTITY")