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