From 473e4bfa98bc5dfdcbadb8046021054091407f55 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Mon, 31 Dec 2007 20:03:37 +0000
Subject: changed doto to return instance

---
 src/boot.clj | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/boot.clj b/src/boot.clj
index 1325f4d4..89bba1a8 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -775,11 +775,12 @@
         (. ~rdr (close))))))
 
 (defmacro doto [x & members]
-   (let [gx (gensym)]
-     `(let [~gx ~x]
-        (do
-          ~@(map (fn [m] (list '. gx m))
-                  members)))))
+  (let [gx (gensym)]
+    `(let [~gx ~x]
+       (do
+         ~@(map (fn [m] (list '. gx m))
+                members))
+       ~gx)))
 
 (defmacro memfn [name & args]
   `(fn [target# ~@args]
-- 
cgit v1.2.3-70-g09d2