diff options
Diffstat (limited to 'src/boot.clj')
-rw-r--r-- | src/boot.clj | 11 |
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] |