interim checkin

1 files changed, 8 insertions, 1 deletions

diff --git a/src/boot.clj b/src/boot.clj
index 1633127e..d01082fe 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -549,6 +549,13 @@
     (print x writer)
     (newline)))
 
+(defmacro .-> [x & members]
+   (let [gx (gensym)]
+     `(let [~gx ~x]
+        (do
+          ~@(map (fn [m] (list '. gx m))
+                  members)))))
+
 (def *exports*
 	'(clojure
 	    load-file eql-ref?
@@ -574,6 +581,6 @@
 		dolist
 		eval import unimport refer unrefer in-namespace unintern
 		into-array array
-		make-proxy prn print newline *out* *current-namespace*
+		make-proxy prn print newline *out* *current-namespace* .->
 	))