diff --git a/main.scm b/main.scm
index fe948b7..6faf4b0 100755
--- a/main.scm
+++ b/main.scm
@@ -155,10 +155,9 @@ string-block
                 (call-with-input-pipe "git shortlog -ns HEAD" read-lines)))))))))
 
 (define (generate-repository-directory)
-  (if (directory-exists? REPOSITORY-DIRECTORY)
-    (begin (delete-directory REPOSITORY-DIRECTORY #t)
-           (create-directory REPOSITORY-DIRECTORY #t))
-    (create-directory REPOSITORY-DIRECTORY #t)))
+  (when (directory-exists? REPOSITORY-DIRECTORY)
+    (delete-directory REPOSITORY-DIRECTORY #t))
+  (create-directory REPOSITORY-DIRECTORY #t))
 
 (define (generate-html-files)
   (let ((source-files-list (git-repository->paths-list)))