From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:18 +0000 (-0500)
Subject: Fixed bug in clean-working-directory
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=694b5cb7c07ce9e74108b52f41b8752ddba3b520;p=git-repl.git

Fixed bug in clean-working-directory
---

diff --git a/git-repl.cl b/git-repl.cl
index 3293123..bbd6da9 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -16,8 +16,8 @@
 
 (defmacro clean-working-directory (&body body)
   `(if (null (modified-files))
-       (write-line "You have modified files. Please stash or commit your files before proceeding.")
-       ,@body))
+       ,@body
+       (write-line "You have modified files. Please stash or commit your files before proceeding.")))
 
 (defvar-public *grep* "findstr" "The name of the program used for searching. On Windows this is set to \'findstr\', but it may be changed to \'grep\' for Unix systems.")