Understand :-initialization(Goal) directive

1 files changed, 5 insertions, 0 deletions

diff --git a/main.c b/main.c
index abad53b..10ccec9 100644
--- a/main.c
+++ b/main.c
@@ -33,6 +33,11 @@ main(int argc, char *argv[])
 		Term *clause;
 		for(clause = prog; clause != nil; clause = clause->next)
 			print("%S.\n", prettyprint(clause));
+
+		Term *goal;
+		for(goal = initgoals; goal != nil; goal = goal->next){
+			print("Running query: %S\n", prettyprint(goal));
+		}
 	}
 
 	exits(nil);