factor: use ?call

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

diff --git a/basis/cache/cache.factor b/basis/cache/cache.factor
index 09268d3e5b9da50b9c51dfaaf57dcf769d2d736e..ed502b47681024142be755b85b99ce943eba1c2a 100644 (file)
--- a/basis/cache/cache.factor
+++ b/basis/cache/cache.factor
@@ -19,7 +19,7 @@ M: cache-entry dispose value>> dispose ;
 
 M: cache-assoc assoc-size assoc>> assoc-size ;
 
-M: cache-assoc at* assoc>> at* [ dup [ 0 >>age value>> ] when ] dip ;
+M: cache-assoc at* assoc>> at* [ [ 0 >>age value>> ] ?call ] dip ;
 
 M: cache-assoc set-at
     check-disposed