Merge pull request #4373 from NoahTheDuke/nb/clean-up-move-zone

Clean up move-zone

src/clj/game/core/cards.clj

@@ -204,11 +204,8 @@
   "Moves all cards from one zone to another, as in Chronos Project."
   [state side server to]
   (when-not (seq (get-in @state [side :locked server]))
-    (let [from-zone (cons side (if (sequential? server) server [server]))
-          to-zone (cons side (if (sequential? to) to [to]))]
-      (swap! state assoc-in to-zone (concat (get-in @state to-zone)
-                                            (zone to (get-in @state from-zone))))
-      (swap! state assoc-in from-zone []))))
+    (doseq [card (get-in @state [side server])]
+      (move state side card to))))
 
 (defn add-prop
   "Adds the given value n to the existing value associated with the key in the card.