From b3a41acd515cf29c4eb322dcbb388d81401b5273 Mon Sep 17 00:00:00 2001 From: Sebastian Crane Date: Mon, 4 Apr 2022 22:48:22 +0100 Subject: [PATCH] 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 --- src/system.clj | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/src/system.clj b/src/system.clj index a555245..dc18b15 100644 --- a/src/system.clj +++ b/src/system.clj @@ -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)]