Allow the repl to backtrack to give alternative results

1 files changed, 2 insertions, 0 deletions

diff --git a/parser.c b/parser.c
index d7f750a..5480696 100644
--- a/parser.c
+++ b/parser.c
@@ -81,6 +81,7 @@ Term *prologtext(int);
 Term *
 parse(int fd, int querymode)
 {
+	fd = dup(fd, -1);
 	parsein = Bfdopen(fd, OREAD);
 	if(parsein == nil){
 		print("Could not open file\n");
@@ -95,6 +96,7 @@ parse(int fd, int querymode)
 		uvlong id = 1;
 		result = copyterm(result, &id);
 	}
+	Bterm(parsein);
 	return result;
 }