diff options
| -rw-r--r-- | tekuti/cache.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tekuti/cache.scm b/tekuti/cache.scm index abb1841..73228e0 100644 --- a/tekuti/cache.scm +++ b/tekuti/cache.scm @@ -41,7 +41,8 @@ (apply values (assoc-ref (cdr cache) (request-uri request)))) (define (cache-set cache master request . args) - (append (if (and cache (< (length cache) 20)) - cache - (list master)) - (acons (request-uri request) args '()))) + (cons* master + (cons (request-uri request) args) + (if (and cache (equal? (car cache) master)) + (list-head (cdr cache) 9) + '()))) |