From ebfe5aa8e3dd571adf379d69267f15d5c6beb559 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 6 Feb 2014 17:52:43 -0800
Subject: [PATCH] AOK

---
 file-tools.rkt |  9 +++++++++
 ptree.rkt      | 10 +---------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/file-tools.rkt b/file-tools.rkt
index 74fa7a5..805bfef 100644
--- a/file-tools.rkt
+++ b/file-tools.rkt
@@ -212,6 +212,15 @@
   (ormap (λ(proc) (proc (->path x))) (list pollen-source? has-pollen-source?)))
 
 
+(define/contract (ptree-source? x)
+  (any/c . -> . boolean?)
+  ((->path x) . has-ext? . PTREE_SOURCE_EXT))
+
+(module+ test
+  (check-true (ptree-source? (format "foo.~a" PTREE_SOURCE_EXT)))
+  (check-false (ptree-source? (format "~a.foo" PTREE_SOURCE_EXT))))
+
+
 
 (define/contract (pollen-source? x)
   (any/c . -> . boolean?)
diff --git a/ptree.rkt b/ptree.rkt
index 83aacc1..13c5317 100644
--- a/ptree.rkt
+++ b/ptree.rkt
@@ -4,15 +4,7 @@
 
 (module+ test (require rackunit))
 
-(provide pnode? ptree? ptree-source? parent children previous next pnode->url ptree-source-decode path->pnode ptree->list file->ptree make-project-ptree current-ptree current-url-context)
-
-(define/contract (ptree-source? x)
-  (any/c . -> . boolean?)
-  ((->path x) . has-ext? . PTREE_SOURCE_EXT))
-
-(module+ test
-  (check-true (ptree-source? (format "foo.~a" PTREE_SOURCE_EXT)))
-  (check-false (ptree-source? (format "~a.foo" PTREE_SOURCE_EXT))))
+(provide pnode? ptree? parent children previous next pnode->url ptree-source-decode path->pnode ptree->list file->ptree make-project-ptree current-ptree current-url-context)
 
 (define/contract (pnode? x)
   (any/c . -> . boolean?)