正确操作试剂中的状态

我只是学习Clojurescript中的试剂,我只是在遵循一些教程,但可能我错过了一些东西,我有这个国家的代码

(defonce app-state (atom {:text "Hello Chestnut!" :click-count 0}))

和渲染视图

(defn article []
  [:div
   [:div "The atom" [:code "click-count"] " has value : " (:click-count @app-state)]
   [:input {:type "button" :value "Add"
            :on-click #(swap! (:click-count @app-state) inc)}]
   ]
  )

错误:没有协议方法ISwap-交换为类型编号定义:0