Disposables are now registered in a global disposables set. To take advantage of...

[factor.git] / basis / cache / cache.factor

diff --git a/basis/cache/cache.factor b/basis/cache/cache.factor
index 3dab1acac8c8f865e5211494e2ab0978e01ad6c7..a226500c63db8aa291fe67d8b0a87ea8d8ead028 100644 (file)
--- a/basis/cache/cache.factor
+++ b/basis/cache/cache.factor
@@ -3,10 +3,10 @@
 USING: kernel assocs math accessors destructors fry sequences ;
 IN: cache
 
-TUPLE: cache-assoc assoc max-age disposed ;
+TUPLE: cache-assoc < disposable assoc max-age ;
 
 : <cache-assoc> ( -- cache )
-    H{ } clone 10 f cache-assoc boa ;
+    cache-assoc new-disposable H{ } clone >>assoc 10 >>max-age ;
 
 <PRIVATE