From 7fc472c269c052b3965881700f83517e9cf34d00 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)]