From d2a0828140c31514c514b8e4fb9a4d52c389d8fe Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 8 Jul 2021 21:54:27 +0000 Subject: Add current_predicate/1 builtin --- module.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'module.c') diff --git a/module.c b/module.c index 45d0797..bd7ca22 100644 --- a/module.c +++ b/module.c @@ -18,6 +18,11 @@ initmodules(void) exits(nil); } + Predicate *p; + for(p = systemmodule->predicates; p != nil; p = p->next){ + p->builtin = 1; + } + usermodule = addemptymodule(L"user"); } @@ -83,6 +88,7 @@ parsemodule(char *file) currentpred->arity = arity; currentpred->clauses = cl; currentpred->public = 1; /* everything is public for now */ + currentpred->builtin = 0; currentpred->next = nil; }else currentpred->clauses = appendclause(currentpred->clauses, cl); -- cgit v1.2.3