(defmacro rj-set-dist [rel# distance]
  `(loop [x# 1]
     (let [prev# (nth ~(-> rel# :list :items) (- x# 1)) ; produces  (clojure.core/nth nil (clojure.core/- x__24397__auto__ 1))
           cur#  (nth ~(-> rel# :list :items) x#)]      ; produces  (clojure.core/nth nil x__24397__auto__)]
       (=
        (~(:get-prop1 rel#) cur#)                       ; produces  (nil cur__24399__auto__)
        (+ (~(:get-prop2 rel#) prev#) ~distance)))      ; produces  (clojure.core/+ (nil prev__24398__auto__) 5)))
     (recur (+ x# 1))))