tools.crossref: fix for not-enough crossref resetting

diff --git a/basis/tools/crossref/crossref.factor b/basis/tools/crossref/crossref.factor
index 5f883aa51ce9fcdb1e9c40e2b0dbac0ab852a8b2..3183f4ddae1622240030d84d203a5e8fc5900329 100644 (file)
--- a/basis/tools/crossref/crossref.factor
+++ b/basis/tools/crossref/crossref.factor
@@ -141,7 +141,10 @@ M: f smart-usage drop \ f smart-usage ;
 SINGLETON: invalidate-crossref
 
 M: invalidate-crossref definitions-changed
-    drop null? [ f crossref set-global ] unless ;
+    ! reset crossref on non-empty definitions or f which
+    ! indicates a source-file was parsed, cache otherwise
+    drop [ null? not ] [ not ] bi or
+    [ f crossref set-global ] when ;
 
 [ invalidate-crossref add-definition-observer ] "tools.crossref" add-startup-hook