seabass
/
matchbot
forked from LibreGaming/matchbot
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Sebastian Crane 2022-04-04 22:48:22 +01:00 committed by Gitea
parent 428c9318fd
commit 7fc472c269
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/system.clj
View File

@ -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)]