From 69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8 Mon Sep 17 00:00:00 2001
From: thintz <thintz@hotpads.com>
Date: Fri, 25 Oct 2013 10:45:31 -0700
Subject: [PATCH] Change compile to compile-site and add clean param.

---
 alley-cat.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/alley-cat.scm b/alley-cat.scm
index d40bd16..6872a15 100644
--- a/alley-cat.scm
+++ b/alley-cat.scm
@@ -12,7 +12,7 @@
    ; core functions
    add-page! delete-page! add-css! delete-css!
    add-file-resource! delete-file-resource!
-   compile
+   compile-site
   )
 
 (import chicken scheme files srfi-1 extras ports irregex)
@@ -110,8 +110,8 @@
        (file-copy (++ (res-dir) "/" p) path-out)))
    *file-resources*))
 
-(define (compile)
-  (and (directory? (out-dir)) (delete-directory (out-dir) #t))
+(define (compile-site #!key (clean #t))
+  (when clean (and (directory? (out-dir)) (delete-directory (out-dir) #t)))
   (output-pages)
   (output-stylesheets)
   (copy-file-resources))