gistfile1.txt

(defmacro <- [& body]
  `(-> ~(last body) ~@(butlast body)))

(deftest <--test
  (is (= [2 3]
         (-> {1 1}
             (assoc 3 4)
             (update-in [1] inc)
             (->> (map-vals dec)
                  (map-keys inc)
                  (<- (update-in [2] inc)
                      (map [2 4])))))))