diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-02-11 08:54:35 +0000 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-02-11 08:54:35 +0000 |
| commit | 2acc2451a1e12eed91dfdfb7759328673ccd353c (patch) | |
| tree | 7f722caf6402193aa88bd8aa14ffbad431de8bb6 | |
| parent | d5757494ed5d91173a7767e7626778a34fd06bdb (diff) | |
macros: letfn has implicit do
| -rw-r--r-- | src/clojure/contrib/macros.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/macros.clj b/src/clojure/contrib/macros.clj index 7d2cc642..34e8d1f8 100644 --- a/src/clojure/contrib/macros.clj +++ b/src/clojure/contrib/macros.clj @@ -19,7 +19,7 @@ "A variant of let for local function definitions. fn-bindings consists of name/args/body triples, with (letfn [name args body] ...) being equivalent to (let [name (fn name args body)] ...)." - [fn-bindings exprs] + [fn-bindings & exprs] (let [makefn (fn [[name args body]] (list name (list 'fn name args body))) fns (vec (apply concat (map makefn (partition 3 fn-bindings))))] - `(let ~fns ~exprs))) + `(let ~fns ~@exprs))) |