From 9799fbd9e8c7fd186365c628bf2024d458dafc75 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 29 Jun 2021 18:46:18 +0000 Subject: Understand :-initialization(Goal) directive --- main.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'main.c') 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); -- cgit v1.2.3