 (defn damage-defer
   "Registers n damage of the given type to be deferred until later. (Chronos Protocol.)"
   [state side dtype n]
-  (swap! state assoc-in [:damage :defer-damage dtype] n ))
+  (swap! state assoc-in [:damage :defer-damage dtype] n))
 
 (defn get-defer-damage [state side dtype {:keys [unpreventable] :as args}]
   (when-not unpreventable (get-in @state [:damage :defer-damage dtype])))

                 (let [prevent (get-in @state [:damage :damage-prevent type])]
                   (system-msg state :runner
                               (if prevent
                                 (str "prevents " (if (= prevent Integer/MAX_VALUE) "all" prevent )
                                      " " (name type) " damage")
                                 "will not prevent damage"))
                   (resolve-damage state side type (max 0 (- n (or prevent 0))) args)))
               {:priority 10}))
         (resolve-damage state side type n args))))))


;;; Tagging

   (swap! state update-in [:damage :damage-bonus] dissoc type)
   (swap! state update-in [:damage :damage-prevent] dissoc type)
   ;; alert listeners that damage is about to be calculated.
   (trigger-event state side :pre-damage type card n)
   (let [n (damage-count state side type n args)]
     (let [prevent (get-in @state [:prevent :damage type])]
       (if (and (not unpreventable) prevent (pos? (count prevent)))
