summaryrefslogtreecommitdiff
path: root/repl.c
diff options
context:
space:
mode:
Diffstat (limited to 'repl.c')
-rw-r--r--repl.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/repl.c b/repl.c
index d179429..14e833c 100644
--- a/repl.c
+++ b/repl.c
@@ -16,7 +16,7 @@ repl(void)
Term *query = parse(fd, nil, 1);
Binding *bindings = nil;
choicestack = nil;
- goalstack = nil; /* should free old choicestack and goalstack */
+ goalstack = nil;
int success;
int firsttime = 1;
FindMore:
@@ -50,6 +50,10 @@ FindMore:
print(".\n");
}
}
+
+ vlong amount = collectgarbage();
+ if(amount != 0)
+ print("Collected %lld bytes of garbage\n", amount);
}
}