Skip to content

Commit

Permalink
cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
unclebob committed Apr 12, 2014
1 parent 859476f commit 1ea8953
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions src/orbit/world.clj
Expand Up @@ -121,17 +121,15 @@


(defn slow-down [controls]
(swap! controls #(update-in % [:delay] inc))
)
(swap! controls #(update-in % [:delay] inc)))

(defn dec-delay [delay]
(if (> delay 0)
(dec delay)
delay))

(defn speed-up [controls]
(swap! controls #(update-in % [:delay] dec-delay))
)
(swap! controls #(update-in % [:delay] dec-delay)))

(defn track-sun [controls]
(swap! controls #(update-in % [:track-sun] not)))
Expand Down

0 comments on commit 1ea8953

Please sign in to comment.