     (w/init-sector game-state)))
 
 
-(defn- leave-sector [game-state factor coord dir-vec]
+(defn- leave-quadrant [game-state factor coord dir-vec]
   ; (println "leaving quadrant")
   (let [place (warp-travel-distance (get-in @game-state [:enterprise])
                                     factor

         (get-in enterprise [:sector])
         (map #(* (* 8 factor) %) dir-vec))))

(defn enter-sector [game-state]
  ; ensure good sector/quadrant coords
  (let [sector (->> (get-in @game-state [:enterprise :sector])
                            (map #(max % 1))

      (swap! game-state update-in [:enterprise] merge updates)
      (when (> factor 1)
        (swap! game-state update-in [:stardate :start] inc))))
  (enter-quadrant game-state))

(defn move [game-state course factor]
  (let [n (int (* factor 8))
