Puffdraw Bad Code 1

cljs-puffdraw-1.cljs

(defn bucket-add
  "Cycle a new button/x/y into the point stash and force redraw.
   Unlike the original Javascript, we
   add to the front and remove from the end.
   "
  [me state]
  (let [old (.-point_stash me)]
    (set! (.-point_stash me) (cons state (drop-last old)))
    (stash me state)
    (.redraw (.-mgraphics me))))