1 files changed, 7 insertions, 7 deletions
diff --git a/haunt/reader.scm b/haunt/reader.scm
index d078594..461b4be 100644
--- a/haunt/reader.scm
+++ b/haunt/reader.scm
@@ -63,19 +63,19 @@ metadata with DEFAULT-METADATA."
                (append metadata default-metadata)
                sxml)))
 
-(define* (read-posts directory ignore? readers #:optional (default-metadata '()))
-  "Read all of the files in DIRECTORY that do not match IGNORE? as
-post objects.  The READERS list must contain a matching reader for
-every post."
+(define* (read-posts directory keep? readers #:optional (default-metadata '()))
+  "Read all of the files in DIRECTORY that match KEEP? as post
+objects.  The READERS list must contain a matching reader for every
+post."
   (define enter? (const #t))
 
   (define (leaf file-name stat memo)
-    (if (ignore? file-name)
-        memo
+    (if (keep? file-name)
         (let ((reader (find (cut reader-match? <> file-name) readers)))
           (if reader
               (cons (read-post reader file-name default-metadata) memo)
-              (error "no reader available for post: " file-name)))))
+              (error "no reader available for post: " file-name)))
+        memo))
 
   (define (noop file-name stat result)
     result)