diff --git a/main.scm b/main.scm
index ce8d2f4..ecd7184 100644
--- a/main.scm
+++ b/main.scm
@@ -74,9 +74,7 @@ string-block
   (with-output-to-file file (lambda () (display contents))))
 
 (define (in-git-directory?)
-  (if (equal? (call-with-input-pipe "git rev-parse --is-bare-repository 2> /dev/null" read-line) "true")
-    #t
-    #f))
+  (equal? (call-with-input-pipe "git rev-parse --is-bare-repository 2> /dev/null" read-line) "true"))
 
 (define (git-repository->paths-list)
   (call-with-input-pipe "git ls-tree -r --name-only HEAD" read-lines))