Give queries another id than clauses, so variable names doesn't clash

1 files changed, 6 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index 18573b7..1e4dc41 100644
--- a/parser.c
+++ b/parser.c
@@ -90,7 +90,12 @@ parse(int fd, int querymode)
 	initoperators();
 	nexttoken();
 
-	return prologtext(querymode);
+	Term *result = prologtext(querymode);
+	if(querymode){
+		uvlong id = 1;
+		result = copyterm(result, &id);
+	}
+	return result;
 }
 
 Term *