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:
parent
db9a865263
commit
1fd9afa013
@ -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'.
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user