From 85adea62d7e8eee9d0e3525d572325db4e58d21a Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 30 Jun 2021 23:30:13 +0000 Subject: Allow the repl to backtrack to give alternative results --- parser.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'parser.c') 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; } -- cgit v1.2.3