correct incremental compilation bugs

2023-02-12 23:41:25 -07:00
parent 326f18ea75
commit 56783b8e4b
2 changed files with 34 additions and 23 deletions
--- a/src/forms.rs
+++ b/src/forms.rs
@@ -812,8 +812,9 @@ impl PredicateInfo {
    }

    #[inline]
-    pub(crate) fn must_retract_local_clauses(&self) -> bool {
-        self.is_extensible && self.has_clauses && !self.is_discontiguous
+    pub(crate) fn must_retract_local_clauses(&self, is_cross_module_clause: bool) -> bool {
+        self.is_extensible && self.has_clauses && !self.is_discontiguous &&
+            !(self.is_multifile && is_cross_module_clause)
    }
 }