fix -z option

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1413 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-10-21 16:15:31 +00:00
parent f5fc38a79e
commit 9c61f13aa5

View File

@ -131,7 +131,7 @@ true :- true.
fail. fail.
'$enter_top_level' :- '$enter_top_level' :-
'$current_module'(Module), '$current_module'(Module),
get_value('$top_level_goal',GA), T \= [], !, get_value('$top_level_goal',GA), GA \= [], !,
set_value('$top_level_goal',[]), set_value('$top_level_goal',[]),
'$run_atom_goal'(GA), '$run_atom_goal'(GA),
set_value('$live','$false'). set_value('$live','$false').