From df52ba811ac492aa2fdeb6983b84ebaeb49da362 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 19 Jun 2015 00:17:25 +0100
Subject: [PATCH] check for null

---
 C/index.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/index.c b/C/index.c
index 783b33901..2d09df746 100755
--- a/C/index.c
+++ b/C/index.c
@@ -3164,7 +3164,7 @@ install_clauses(ClauseDef *cls, PredEntry *ap, istack_entry *stack, yamop *beg,
       if (!sp->pos && (sp[-1].val == 0L || cls->Tag == sp[-1].val)) {
 	cls++;
       }
-      if (cl->ClCode == end || cl->ClCode == NULL) {
+      if (cl->ClCode == end) {
 	return cls-1;
       }
       cl = cl->ClNext;