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
This commit is contained in:
vsc 2004-12-07 19:24:13 +00:00
parent db9a865263
commit 1fd9afa013

View File

@ -154,6 +154,7 @@ read_sig.
'$startup_reconsult' :- '$startup_reconsult' :-
get_value('$consult_on_boot',X), X \= [], !, get_value('$consult_on_boot',X), X \= [], !,
set_value('$consult_on_boot',[]),
'$do_startup_reconsult'(X). '$do_startup_reconsult'(X).
'$startup_reconsult'. '$startup_reconsult'.