reverse-cps-trampoline-2.clj

(defn reverse*-cps [x k]
    (cond
     (nil? (seq x)) 
       (trampoline #(apply-cont k '[]))
     (seq? (first x)) 
       (recur (rest x)
         (fn [new-tail]
           #(reverse*-cps (first x) ; <-- HERE
              (fn [new-head]
                (snoc-cps new-tail new-head k)))))
     :else (recur (rest x)
             (fn [new-tail]
               (snoc-cps new-tail (first x) k)))))