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
428c9318fd
commit
7fc472c269
|
@ -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