changed doto to return instance

1 files changed, 6 insertions, 5 deletions

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]