From 694b5cb7c07ce9e74108b52f41b8752ddba3b520 Mon Sep 17 00:00:00 2001
From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 12:26:18 -0500
Subject: [PATCH] Fixed bug in clean-working-directory

---
 git-repl.cl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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.")
 
-- 
2.20.1