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>

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