summaryrefslogtreecommitdiff
path: root/main.c
diff options
context:
space:
mode:
Diffstat (limited to 'main.c')
-rw-r--r--main.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/main.c b/main.c
index 76d8e04..416e832 100644
--- a/main.c
+++ b/main.c
@@ -29,11 +29,15 @@ main(int argc, char *argv[])
int fd = open(parsetestfile, OREAD);
if(fd < 0)
exits("open");
- Term *prog = parse(fd);
+ Term *database = parse(fd, 0);
Term *goal;
- for(goal = initgoals; goal != nil; goal = goal->next)
- evalquery(prog, goal);
+ for(goal = initgoals; goal != nil; goal = goal->next){
+ Binding *bindings = nil;
+ evalquery(database, goal, &bindings);
+ }
+
+ repl(database);
}
exits(nil);