Add clause/2 predicate

1 files changed, 1 insertions, 1 deletions

diff --git a/module.c b/module.c
index f1fb4f2..8325fc9 100644
--- a/module.c
+++ b/module.c
@@ -59,7 +59,6 @@ parsemodule(char *file)
 		Clause *cl = malloc(sizeof(Clause));
 		int arity;
 		cl->clausenr = 0;
-		cl->public = 1; /* everything is public for now */
 		cl->next = nil;
 		if(t->tag == CompoundTerm && runestrcmp(t->text, L":-") == 0 && t->arity == 2){
 			cl->head = t->children;
@@ -83,6 +82,7 @@ parsemodule(char *file)
 			currentpred->name = cl->head->text;
 			currentpred->arity = arity;
 			currentpred->clauses = cl;
+			currentpred->public = 1; /* everything is public for now */
 			currentpred->next = nil;
 		}else
 			currentpred->clauses = appendclause(currentpred->clauses, cl);