From 2c1fbde3089f2d38bb6aaa46f041b28c8013003b Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Mon, 8 Oct 2007 12:40:08 +0000
Subject: interim checkin

---
 src/boot.clj | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src')

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* .->
 	))
 
-- 
cgit v1.2.3-18-g5258