From d22fe2107c9f55c4e9b2d2d8ec65911964407df0 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 19 May 2003 16:47:58 +0000
Subject: [PATCH] fix trouble with B=NULL for compiler

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@828 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/compiler.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C/compiler.c b/C/compiler.c
index 2ba11cdf2..be33dee98 100644
--- a/C/compiler.c
+++ b/C/compiler.c
@@ -2675,7 +2675,6 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod)
 {				/* compile a prolog clause, copy of clause myst be in ARG1 */
   /* returns address of code for clause */
   Term head, body;
-  CELL *SaveH;
   yamop *acode;
 
   volatile int maxvnum = 512;
@@ -2808,7 +2807,9 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod)
   }
   reset_vars();
   H = HB;
-  HB = B->cp_h;
+  if (B != NULL) {
+    HB = B->cp_h;
+  }
   if (Yap_ErrorMessage)
     return (0);
 #ifdef DEBUG