diff --git a/pollen/cache.rkt b/pollen/cache.rkt index 281dafd..a7a88ec 100644 --- a/pollen/cache.rkt +++ b/pollen/cache.rkt @@ -1,5 +1,6 @@ #lang racket/base (require racket/file + racket/list sugar/define "private/cache-utils.rkt" "private/debug.rkt" @@ -10,8 +11,7 @@ (define (cache-directory? path) (and (directory-exists? path) - (member (path->string (for/last ([p (in-list (explode-path path))]) - p)) default-cache-names))) + (member (path->string (last (explode-path path))) default-cache-names))) (define+provide (reset-cache [starting-dir (current-project-root)]) (unless (and (path-string? starting-dir) (directory-exists? starting-dir)) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 7fd0882..a9ff399 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1509918830 +1509919219