Add a basic repl

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