r-> like -> but it respects reduced

gistfile1.txt

(defmacro r->
  [x & forms]
  (loop [x x, forms forms]
    (if forms
      (let [form (first forms)
            threaded  (with-meta `(let [x# ~x]
                                    (if (reduced? x#)
                                      x#
                                      (~(first form) x# ~@(next form))))
                                 (meta form))]
        (recur threaded (next forms)))
      `(let [x# ~x]
         (if (reduced? x#)
           @x#
           x#)))))

(comment
=> (r-> 1 (+ 2) (+ 3) (reduced) (+ 300))
6
)