forked from LibreGaming/matchbot
Remove superfluous utilisation of 'do' forms
Since defn evaluates the expressions it its body in the same way as do, this commit removes the superfluous uses of do where it appears directly as a function body. Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>
This commit is contained in:
parent
b099d6bfe1
commit
b3a41acd51
|
@ -46,16 +46,14 @@
|
|||
:irc irc}))
|
||||
|
||||
(defn stop [system]
|
||||
(do
|
||||
(save-state
|
||||
(get-in system [:config :data-file])
|
||||
(deref (:state system)))
|
||||
(irclj.core/quit (system :irc))))
|
||||
(save-state
|
||||
(get-in system [:config :data-file])
|
||||
(deref (:state system)))
|
||||
(irclj.core/quit (system :irc)))
|
||||
|
||||
(defn restart [system-var]
|
||||
(do
|
||||
(stop (deref system-var))
|
||||
(alter-var-root system-var start)))
|
||||
(stop (deref system-var))
|
||||
(alter-var-root system-var start))
|
||||
|
||||
(defn -main [& args]
|
||||
(let [main-system (system/start nil)]
|
||||
|
|
Loading…
Reference in New Issue