summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/boot.clj9
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* .->
))