def: Add defn-memo

Fixes #5
clojure · Jul 9, 2009 · 4df3fae · 4df3fae
1 parent c493df4
commit 4df3fae
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/clojure/contrib/def.clj b/src/clojure/contrib/def.clj
@@ -136,3 +136,12 @@ making private definitions more succinct."}
       [~@pos & options#]
       (let [~de-map (apply hash-map options#)]
         ~@body))))
+
+; defn-memo by Chouser:
+(defmacro defn-memo
+  "Just like defn, but memoizes the function using clojure.core/memoize"
+  [fn-name & defn-stuff]
+  `(do
+     (defn ~fn-name ~@defn-stuff)
+     (alter-var-root (var ~fn-name) memoize)
+     (var ~fn-name)))