Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

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

diff --git a/basis/cache/cache.factor b/basis/cache/cache.factor
index f16461bf450b994375afd92262db8366686a2024..3dab1acac8c8f865e5211494e2ab0978e01ad6c7 100644 (file)
--- a/basis/cache/cache.factor
+++ b/basis/cache/cache.factor
@@ -38,6 +38,6 @@ PRIVATE>
 
 : purge-cache ( cache -- )
     dup max-age>> '[
-        [ nip [ 1+ ] change-age age>> _ >= ] assoc-partition
+        [ nip [ 1 + ] change-age age>> _ >= ] assoc-partition
         [ values dispose-each ] dip
-    ] change-assoc drop ;
\ No newline at end of file
+    ] change-assoc drop ;