Puffdraw Bad Code 2

cljs-puffdraw-2.cljs

(defn paint
  "Paint does the work. Iterate through the circular queue of states, drawing
   a fat line from each point to the next (if button down)."
  [me]
  (...
    (letfn [(iter [i last-x last-y]
              ((let [{:keys [button x y]} (nth points i)]
                  ...
                  (.move_to g last-x last-y)
                  (.line_to g x y)
                  (.stroke g))
                (when (< i (- TRAIL-LENGTH 1))
                  (recur (inc i) x y))))]
      (iter 1
            (:x (first points))
            (:y (first points))))))