From 58e0109ee9ed3aa6ac2e6b0ed621820118a3d1de Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 8 Jul 2021 01:40:24 +0000 Subject: Add clause/2 predicate --- module.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module.c') 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); -- cgit v1.2.3