From 3a78f26888798a9cd0c71b66d39305620f013956 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 10 Apr 2002 05:16:58 +0000
Subject: [PATCH] fix bug with gc being called from recorda

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@438 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/dbase.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/C/dbase.c b/C/dbase.c
index e0640f7e8..a0d8bbfc9 100644
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -4281,14 +4281,14 @@ p_resize_int_keys(void)
 void 
 InitDBPreds(void)
 {
-  InitCPred("$recorda", 3, p_rcda, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordz", 3, p_rcdz, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordap", 3, p_rcdap, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordzp", 3, p_rcdzp, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordap", 4, p_drcdap, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordzp", 4, p_drcdzp, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordaifnot", 3, p_rcdaifnot, SafePredFlag|SyncPredFlag);
-  InitCPred("$recordzifnot", 3, p_rcdzifnot, SafePredFlag|SyncPredFlag);
+  InitCPred("$recorda", 3, p_rcda, SyncPredFlag);
+  InitCPred("$recordz", 3, p_rcdz, SyncPredFlag);
+  InitCPred("$recordap", 3, p_rcdap, SyncPredFlag);
+  InitCPred("$recordzp", 3, p_rcdzp, SyncPredFlag);
+  InitCPred("$recordap", 4, p_drcdap, SyncPredFlag);
+  InitCPred("$recordzp", 4, p_drcdzp, SyncPredFlag);
+  InitCPred("$recordaifnot", 3, p_rcdaifnot, SyncPredFlag);
+  InitCPred("$recordzifnot", 3, p_rcdzifnot, SyncPredFlag);
   InitCPred("erase", 1, p_erase, SafePredFlag|SyncPredFlag);
   InitCPred("erased", 1, p_erased, TestPredFlag | SafePredFlag|SyncPredFlag);
   InitCPred("instance", 2, p_instance, SyncPredFlag);