From 50768fba487e1ec08278cdc4be614863db32a5c4 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Tue, 29 Jun 2021 18:21:31 +0000
Subject: Make parse return a list of clauses. Also pretty print the entire
 list of clauses.

---
 example.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'example.pl')

diff --git a/example.pl b/example.pl
index f5305d9..6fff9b3 100644
--- a/example.pl
+++ b/example.pl
@@ -16,6 +16,7 @@ likes(sam, ice).
 could_be_friends(Person1, Person2) :-
 	likes(Person1, Thing1),
 	likes(Person2, Thing2),
+	!,
 	Thing1 = Thing2.
 
 list1(A) :- A = [1,2,3,4].
-- 
cgit v1.2.3