 (defmethod handle-collision :asteroid [{:keys [hit? size position speed] :as asteroid}]
   (let [fragment-size (/ size sqrt3)]
     (if hit?
-      (if (< fragment-size asteroid-min-size)
-        nil
-        (create-asteroids 3 fragment-size position speed))
+      (create-asteroids 3 fragment-size position speed)
       asteroid)))
+
+(defmethod handle-collision :other [object]
+  object)
 
 (defn resolve-all-collision [{shots :shots :as ship} asteroids]
   (let [[ship asteroids] (check-collision ship asteroids)

              (int \W) {:acceleration 1}
              (int \K) {:shoot true}
              (int \R) {:reset true}
              })

; END: constants

      :direction      direction
      :rotation-speed rotation-speed

      :collidable?    (not debris?)

      :life-time      (if debris? debris-life-millis nil)
      }))
  ([size pos]
   (create-asteroid size pos [0 0]))
