diff --git a/pollen/cache.rkt b/pollen/cache.rkt index 0a9f1c0..a8e1340 100644 --- a/pollen/cache.rkt +++ b/pollen/cache.rkt @@ -11,10 +11,13 @@ (define+provide (reset-cache [starting-dir (current-project-root)]) (unless (and (path-string? starting-dir) (directory-exists? starting-dir)) (raise-argument-error 'reset-cache "path-string to existing directory" starting-dir)) - + (for ([path (in-directory starting-dir)] #:when (and (directory-exists? path) - (equal? (path->string (car (reverse (explode-path path)))) (setup:cache-dir-name)))) + (let* ([last (compose1 car reverse)] + [last-path-element (path->string (last (explode-path path)))]) + (or (equal? last-path-element (setup:cache-dir-name)) + (equal? last-path-element "compiled"))))) (message (format "removing cache directory: ~a" path)) (delete-directory/files path))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 810f39d..b29f4c5 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1469050761 +1469678452