diff --git a/ptree.rkt b/ptree.rkt index be60461..27c2b51 100644 --- a/ptree.rkt +++ b/ptree.rkt @@ -40,7 +40,7 @@ (define ptree-cache (make-hash)) (define ptree-source-mod-dates (make-hash)) -(define (not-modified? ptree-source-path) +(define (not-modified-since-last-pass? ptree-source-path) (and (hash-has-key? ptree-source-mod-dates ptree-source-path) ((file-or-directory-modify-seconds ptree-source-path) . = . (hash-ref ptree-source-mod-dates ptree-source-path)))) @@ -61,7 +61,7 @@ (directory-pathish? . -> . ptree?) (define ptree-source (build-path project-dir DEFAULT_PTREE)) (if (file-exists? ptree-source) - (if (not-modified? ptree-source) + (if (not-modified-since-last-pass? ptree-source) (hash-ref ptree-cache ptree-source) (begin (hash-set! ptree-source-mod-dates ptree-source (file-or-directory-modify-seconds ptree-source))