Add current_predicate/1 builtin

1 files changed, 6 insertions, 0 deletions

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);