From 79f3a421e49a1b5baf5dd9bed6c2d640dac7dc95 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Sat, 30 Jan 2016 22:25:56 -0800
Subject: writeCapsuleLevelDefinitions: don't write into the index file

---
 src/interp/define.boot | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'src/interp/define.boot')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 72026f02..55db10b7 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1407,9 +1407,10 @@ AMFCR_,redefined(opname,u) ==
   op = '%when => "OR"/[AMFCR_,redefinedList(opname,rest u) for u in l]
 
 dbClearForCompilation! db ==
-  dbTemplate(db) := nil
-  dbLookupFunction(db) := nil
-  dbCapsuleDefinitions(db) := nil
+  dbCategory(db) := nil
+  dbConstructorModemap(db) := nil
+  dbDualSignature(db) := nil
+  dbDefaultDomain(db) := nil
   dbModemaps(db) := nil
   dbDocumentation(db) := nil
   dbOperations(db) := nil
@@ -1417,11 +1418,11 @@ dbClearForCompilation! db ==
   dbPredicates(db) := nil
   dbAncestors(db) := nil
   dbPrincipals(db) := nil
-  dbCategory(db) := nil
-  dbPredicates(db) := nil
-  dbConstructorModemap(db) := nil
-  dbDefaultDomain(db) := nil
-  dbDualSignature(db) := nil
+  dbSuperDomain(db) := nil
+  dbCapsuleDefinitions(db) := nil
+  dbTemplate(db) := nil
+  dbLookupFunction(db) := nil
+  dbOperationTable(db) := nil
 
 substituteCategoryArguments(argl,catform) ==
   argl := substitute("$$","$",argl)
-- 
cgit v1.2.3