diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-11-17 10:57:46 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-11-17 10:57:46 -0500 |
| commit | 8225407032ea643cbe3db7f35ef97b1230fc65b8 (patch) | |
| tree | 265f4032fbd5253fb4432a8f10cdbda7b1a0fc6a | |
| parent | d7787a758031fcc21f16c613cb759c5a6bee7a8a (diff) | |
propagate name to fn in defn
| -rw-r--r-- | src/clj/clojure/core.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index b6fe498a..0c3d12ea 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -303,7 +303,7 @@ m)) m (conj (if (meta name) (meta name) {}) m)] (list 'def (with-meta name m) - (cons `fn fdecl) )))) + (cons `fn (cons name fdecl)) )))) (. (var defn) (setMacro)) |