From 925639ecccc5ebcd751be153cd9380c7b787e415 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 8 Nov 2007 09:53:01 +0000
Subject: [PATCH] YAP would always say the system has tabling!

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1979 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/cdmgr.c         | 10 ++++------
 pl/directives.yap |  2 +-
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/C/cdmgr.c b/C/cdmgr.c
index 413e6de21..e1b5ba857 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -11,8 +11,11 @@
 * File:		cdmgr.c							 *
 * comments:	Code manager						 *
 *									 *
-* Last rev:     $Date: 2007-11-07 09:25:27 $,$Author: vsc $						 *
+* Last rev:     $Date: 2007-11-08 09:53:01 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.210  2007/11/07 09:25:27  vsc
+* speedup meta-calls
+*
 * Revision 1.209  2007/11/06 17:02:11  vsc
 * compile ground terms away.
 *
@@ -625,11 +628,6 @@ static Term BlobTermAdjust(Term t)
 #endif
 }
 
-static void
-RestoreDBTerm(DBTerm *dbr)
-{
-}
-
 #include "rclause.h"
 
 #ifdef DEBUG
diff --git a/pl/directives.yap b/pl/directives.yap
index a8a6133bf..c5c8b8c5f 100644
--- a/pl/directives.yap
+++ b/pl/directives.yap
@@ -542,7 +542,7 @@ yap_flag(system_options,X) :-
 '$system_options'(readline) :-
 	'$has_readline'.
 '$system_options'(tabling) :-
-	\+ '$undefined'('$do_table'(_,_), prolog).
+	\+ '$undefined'('$c_table'(_,_), prolog).
 '$system_options'(threads) :-
 	\+ '$no_threads'.
 '$system_options'(wam_profiler) :-