-

private/lru-cache.rkt

@@ -13,6 +13,7 @@
          lru-has?
          lru-add!
          lru-count
+         lru-empty?
          lru->list
          lru-clear
          )
@@ -155,6 +156,10 @@
     )
   )
 
+(define/contract (lru-empty? l)
+  (-> lru*? boolean?)
+  (= (lru-count l) 0))
+
 (define/contract (lru-count lru)
   (-> lru*? larger-equal0?)
   (with-lock lru