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.
'$enter_top_level' :-
'$current_module'(Module),
get_value('$top_level_goal',GA), T \= [], !,
get_value('$top_level_goal',GA), GA \= [], !,
set_value('$top_level_goal',[]),
'$run_atom_goal'(GA),
set_value('$live','$false').