From 1fd9afa013de1cf8f82b6a2a9c3648f86c53968f Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 7 Dec 2004 19:24:13 +0000
Subject: [PATCH] after using file from -l option we should get rid of it.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1204 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pl/boot.yap b/pl/boot.yap
index 1a94da811..13bac24f1 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -154,6 +154,7 @@ read_sig.
 
 '$startup_reconsult' :-
 	get_value('$consult_on_boot',X), X \= [], !,
+	set_value('$consult_on_boot',[]),
 	'$do_startup_reconsult'(X).
 '$startup_reconsult'.