 
 (defn cleanup []
 
-  ; Create new quit channel (used to stop go-blocks)
+  (swap! state assoc :quit true)
   (close! (:quit-chan @state))
 
   )

              ; force gravity to reset
              (put! pause-grav 0)
              (put! resume-grav 0)
              (recur))))))))

;;------------------------------------------------------------
;; Opponent drawing


                 :soft-drop false

                 :quit false
                 :quit-chan (chan)}))

; required for pausing/resuming the gravity routine
